CVS update by scop xemacs/lisp ...
User: scop
Date: 06/04/25 21:46:26
Modified: xemacs/lisp ChangeLog simple.el
Log:
Add optional buffer arg to goto-line, update next-line-add-newlines docs.
Revision Changes Path
1.740 +6 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.739
retrieving revision 1.740
diff -u -p -r1.739 -r1.740
--- ChangeLog 2006/04/25 14:01:52 1.739
+++ ChangeLog 2006/04/25 19:46:23 1.740
＠＠ -1,3 +1,9 ＠＠
+2006-04-23 Ville Skyttä <scop(a)xemacs.org>
+
+ * simple.el (goto-line): Add optional `buffer' argument, from
+ GNU Emacs CVS.
+ (next-line-add-newlines): Remove obsolete comments from the docs.
+
2006-04-25 Stephen J. Turnbull <stephen(a)xemacs.org>
Repair busted commit and gratuitous doc improvements.
1.55 +9 -6 XEmacs/xemacs/lisp/simple.el
Index: simple.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/simple.el,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -p -r1.54 -r1.55
--- simple.el 2005/11/13 10:51:18 1.54
+++ simple.el 2006/04/25 19:46:24 1.55
＠＠ -899,10 +899,14 ＠＠ to get different commands to edit and re
;; next-complete-history-element
;; previous-complete-history-element
-(defun goto-line (line)
- "Goto line LINE, counting from line 1 at beginning of buffer."
+(defun goto-line (line &optional buffer)
+ "Goto line LINE, counting from line 1 at beginning of BUFFER."
(interactive "NGoto line: ")
(setq line (prefix-numeric-value line))
+ (if buffer
+ (let ((window (get-buffer-window buffer)))
+ (if window (select-window window)
+ (switch-to-buffer-other-window buffer))))
(save-restriction
(widen)
(goto-char 1)
＠＠ -1964,11 +1968,10 ＠＠ scroll-down-command"
:type 'boolean
:group 'editing-basics)
-;;; After 8 years of waiting ... -sb
-(defcustom next-line-add-newlines nil ; XEmacs
+(defcustom next-line-add-newlines nil
"*If non-nil, `next-line' inserts newline when the point is at end of buffer.
-This behavior used to be the default, and is still default in FSF Emacs.
-We think it is an unnecessary and unwanted side-effect."
+This behavior used to be the default, but is now considered an unnecessary and
+unwanted side-effect."
:type 'boolean
:group 'editing-basics)