[Emacs-diffs] Changes to emacs/lisp/simple.el

[Juanma Barranquero]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.730 emacs/lisp/simple.el:1.731
*** emacs/lisp/simple.el:1.730  Thu Jun 16 14:31:44 2005
--- emacs/lisp/simple.el        Mon Jun 20 10:26:49 2005
***************
*** 148,154 ****
  in question is treated as usable.
  
  The function EXTRA-TEST-EXCLUSIVE, if non-nil is called in each buffer
! that would normally be considered usable.  if it returns nil,
  that buffer is rejected."
    (and (buffer-name buffer)           ;First make sure it's live.
         (not (and avoid-current (eq buffer (current-buffer))))
--- 148,154 ----
  in question is treated as usable.
  
  The function EXTRA-TEST-EXCLUSIVE, if non-nil is called in each buffer
! that would normally be considered usable.  If it returns nil,
  that buffer is rejected."
    (and (buffer-name buffer)           ;First make sure it's live.
         (not (and avoid-current (eq buffer (current-buffer))))
***************
*** 169,175 ****
  If AVOID-CURRENT is non-nil, treat the current buffer
  as an absolute last resort only.
  
! The function EXTRA-TEST-INCLUSIVE, if non-nil, is called in each buffers
  that normally would not qualify.  If it returns t, the buffer
  in question is treated as usable.
  
--- 169,175 ----
  If AVOID-CURRENT is non-nil, treat the current buffer
  as an absolute last resort only.
  
! The function EXTRA-TEST-INCLUSIVE, if non-nil, is called in each buffer
  that normally would not qualify.  If it returns t, the buffer
  in question is treated as usable.
  
***************
*** 2764,2770 ****
    "Kill current line.
  With prefix arg, kill that many lines starting from the current line.
  If arg is negative, kill backward.  Also kill the preceding newline.
! \(This is meant to make C-x z work well with negative arguments.\)
  If arg is zero, kill current line but exclude the trailing newline."
    (interactive "p")
    (if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp)))
--- 2764,2770 ----
    "Kill current line.
  With prefix arg, kill that many lines starting from the current line.
  If arg is negative, kill backward.  Also kill the preceding newline.
! \(This is meant to make \\[repeat] work well with negative arguments.\)
  If arg is zero, kill current line but exclude the trailing newline."
    (interactive "p")
    (if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp)))
***************
*** 5116,5122 ****
  (defun clone-indirect-buffer (newname display-flag &optional norecord)
    "Create an indirect buffer that is a twin copy of the current buffer.
  
! Give the indirect buffer name NEWNAME.  Interactively, read NEW-NAME
  from the minibuffer when invoked with a prefix arg.  If NEWNAME is nil
  or if not called with a prefix arg, NEWNAME defaults to the current
  buffer's name.  The name is modified by adding a `<N>' suffix to it
--- 5116,5122 ----
  (defun clone-indirect-buffer (newname display-flag &optional norecord)
    "Create an indirect buffer that is a twin copy of the current buffer.
  
! Give the indirect buffer name NEWNAME.  Interactively, read NEWNAME
  from the minibuffer when invoked with a prefix arg.  If NEWNAME is nil
  or if not called with a prefix arg, NEWNAME defaults to the current
  buffer's name.  The name is modified by adding a `<N>' suffix to it