Mercurial > emacs

comparison lisp/subr.el @ 83553:32073cbc5eb6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-592 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-593 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-594 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-595 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-596 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-597 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-598 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-186 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-187 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-188 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-189 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-190 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-191 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-593
author Karoly Lorentey <lorentey@elte.hu>
date Sat, 13 Jan 2007 22:59:28 +0000
parents d3099204c799 c6f5de1b0b6e
children b8d9a391daf3
comparison
equal deleted inserted replaced
83552:d3099204c799 83553:32073cbc5eb6
1903 ;; If the message end is off screen, recenter now. 1903 ;; If the message end is off screen, recenter now.
1904 (if (< (window-end nil t) (+ pos (length string))) 1904 (if (< (window-end nil t) (+ pos (length string)))
1905 (recenter (/ (window-height) 2))) 1905 (recenter (/ (window-height) 2)))
1906 ;; If that pushed message start off the screen, 1906 ;; If that pushed message start off the screen,
1907 ;; scroll to start it at the top of the screen. 1907 ;; scroll to start it at the top of the screen.
1908 (move-to-window-line 0) 1908 (save-excursion
1909 (if (> (point) pos) 1909 (move-to-window-line 0)
1910 (progn 1910 (if (> (point) pos)
1911 (goto-char pos) 1911 (goto-char pos)
1912 (recenter 0))) 1912 (recenter 0)))
1913 (message (or message "Type %s to continue editing.") 1913 (message (or message "Type %s to continue editing.")
1914 (single-key-description exit-char)) 1914 (single-key-description exit-char))
1915 (let (char) 1915 (let (char)
1916 (if (integerp exit-char) 1916 (if (integerp exit-char)
1917 (condition-case nil 1917 (condition-case nil
2693 that for the default value of SEPARATORS leading and trailing whitespace 2693 that for the default value of SEPARATORS leading and trailing whitespace
2694 are effectively trimmed). If nil, all zero-length substrings are retained, 2694 are effectively trimmed). If nil, all zero-length substrings are retained,
2695 which correctly parses CSV format, for example. 2695 which correctly parses CSV format, for example.
2696 2696
2697 Note that the effect of `(split-string STRING)' is the same as 2697 Note that the effect of `(split-string STRING)' is the same as
2698 `(split-string STRING split-string-default-separators t)'). In the rare 2698 `(split-string STRING split-string-default-separators t)'. In the rare
2699 case that you wish to retain zero-length substrings when splitting on 2699 case that you wish to retain zero-length substrings when splitting on
2700 whitespace, use `(split-string STRING split-string-default-separators)'. 2700 whitespace, use `(split-string STRING split-string-default-separators)'.
2701 2701
2702 Modifies the match data; use `save-match-data' if necessary." 2702 Modifies the match data; use `save-match-data' if necessary."
2703 (let ((keep-nulls (not (if separators omit-nulls t))) 2703 (let ((keep-nulls (not (if separators omit-nulls t)))