Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site mit-eddie.UUCP
Path: utzoo!watmath!clyde!cbosgd!ihnp4!mit-eddie!rms@mit-prep
From: rms@mit-prep
Newsgroups: net.emacs
Subject: Bug fix
Message-ID: <4323@mit-eddie.UUCP>
Date: Wed, 22-May-85 01:03:33 EDT
Article-I.D.: mit-eddi.4323
Posted: Wed May 22 01:03:33 1985
Date-Received: Fri, 24-May-85 01:44:27 EDT
Sender: bcn@mit-eddi.UUCP
Organization: MIT, Cambridge, MA
Lines: 95

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)))