comparison lisp/subr.el @ 90718:f1d13e615070

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 523-544) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 168-171) - Update from CVS - Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-150
author Miles Bader <miles@gnu.org>
date Thu, 07 Dec 2006 04:14:14 +0000
parents dbe3f29e61d6 f4d1181a38c2
children 6588c6259dfb
comparison
equal deleted inserted replaced
90717:06937e972ad0 90718:f1d13e615070
1890 description list. EXIT-CHAR defaults to SPC. If the input is 1890 description list. EXIT-CHAR defaults to SPC. If the input is
1891 EXIT-CHAR it is swallowed; otherwise it is then available as 1891 EXIT-CHAR it is swallowed; otherwise it is then available as
1892 input (as a command if nothing else). 1892 input (as a command if nothing else).
1893 Display MESSAGE (optional fourth arg) in the echo area. 1893 Display MESSAGE (optional fourth arg) in the echo area.
1894 If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there." 1894 If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
1895 (or exit-char (setq exit-char ?\ )) 1895 (or exit-char (setq exit-char ?\s))
1896 (let ((inhibit-read-only t) 1896 (let ((inhibit-read-only t)
1897 ;; Don't modify the undo list at all. 1897 ;; Don't modify the undo list at all.
1898 (buffer-undo-list t) 1898 (buffer-undo-list t)
1899 (modified (buffer-modified-p)) 1899 (modified (buffer-modified-p))
1900 (name buffer-file-name) 1900 (name buffer-file-name)