rms@mit-prep (05/22/85)
From: Richard M. Stallman <rms@mit-prep>
Date: Tue, 21 May 85 12:47:39 PDT
From: Eduardo Krell <ekrell@UCLA-LOCUS.ARPA>
To: bug-gnu-emacs@mit-prep.ARPA
Subject: typos in mlsupport.el (and fix)
Several functions in mlsupport.el have a parameter called "bufname" which
is later on referenced as "name". References to "name" should read "bufname"
instead. Here's a diff -c:
*** mlsupport.el.old Thu May 2 23:31:52 1985
--- mlsupport.el Tue May 21 12:22:27 1985
***************
*** 138,144
(delete-region (dot) (mark)))
(defun delete-region-to-buffer (bufname)
! (copy-to-buffer name (dot) (mark))
(delete-region (dot) (mark)))
(defun copy-region-to-buffer (bufname)
--- 138,144 -----
(delete-region (dot) (mark)))
(defun delete-region-to-buffer (bufname)
! (copy-to-buffer bufname (dot) (mark))
(delete-region (dot) (mark)))
(defun copy-region-to-buffer (bufname)
***************
*** 142,148
(delete-region (dot) (mark)))
(defun copy-region-to-buffer (bufname)
! (copy-to-buffer name (dot) (mark)))
(defun append-region-to-buffer (bufname)
(append-to-buffer name (dot) (mark)))
--- 142,148 -----
(delete-region (dot) (mark)))
(defun copy-region-to-buffer (bufname)
! (copy-to-buffer bufname (dot) (mark)))
(defun append-region-to-buffer (bufname)
(append-to-buffer bufname (dot) (mark)))
***************
*** 145,151
(copy-to-buffer name (dot) (mark)))
(defun append-region-to-buffer (bufname)
! (append-to-buffer name (dot) (mark)))
(defun prepend-region-to-buffer (bufname)
(prepend-to-buffer name (dot) (mark)))
--- 145,151 -----
(copy-to-buffer bufname (dot) (mark)))
(defun append-region-to-buffer (bufname)
! (append-to-buffer bufname (dot) (mark)))
(defun prepend-region-to-buffer (bufname)
(prepend-to-buffer bufname (dot) (mark)))
***************
*** 148,154
(append-to-buffer name (dot) (mark)))
(defun prepend-region-to-buffer (bufname)
! (prepend-to-buffer name (dot) (mark)))
(defun delete-next-character ()
(delete-char (ml-prefix-argument)))
--- 148,154 -----
(append-to-buffer bufname (dot) (mark)))
(defun prepend-region-to-buffer (bufname)
! (prepend-to-buffer bufname (dot) (mark)))
(defun delete-next-character ()
(delete-char (ml-prefix-argument)))
***************
*** 352,355
(defun execute-mlisp-line (string)
(eval (read string)))
-
--- 352,354 -----
(defun execute-mlisp-line (string)
(eval (read string)))