Mercurial > emacs
changeset 268:2dd411fe2f72
*** empty log message ***
| author | Brian Preble <rassilon@gnu.org> |
|---|---|
| date | Mon, 13 May 1991 22:05:10 +0000 |
| parents | d83efd759350 |
| children | 2ca8cdb96a9f |
| files | lisp/macros.el lisp/mail/mail-utils.el lisp/novice.el lisp/replace.el lisp/time.el |
| diffstat | 5 files changed, 17 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/macros.el Mon May 13 21:21:58 1991 +0000 +++ b/lisp/macros.el Mon May 13 22:05:10 1991 +0000 @@ -104,4 +104,5 @@ (let (executing-macro defining-kbd-macro) (recursive-edit)))))))))) -;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query) +;;;###autoload +(define-key ctl-x-map "q" 'kbd-macro-query)
--- a/lisp/mail/mail-utils.el Mon May 13 21:21:58 1991 +0000 +++ b/lisp/mail/mail-utils.el Mon May 13 22:05:10 1991 +0000 @@ -20,10 +20,11 @@ (provide 'mail-utils) -;;;###autoload (defvar mail-use-rfc822 nil -;;;###autoload "*If non-nil, use a full, hairy RFC822 parser on mail addresses. -;;;###autoload Otherwise, (the default) use a smaller, somewhat faster, and -;;;###autoload often correct parser.") +;;;###autoload +(defvar mail-use-rfc822 nil "\ +*If non-nil, use a full, hairy RFC822 parser on mail addresses. +Otherwise, (the default) use a smaller, somewhat faster, and +often correct parser.") (defun mail-string-delete (string start end) "Returns a string containing all of STRING except the part
--- a/lisp/novice.el Mon May 13 21:21:58 1991 +0000 +++ b/lisp/novice.el Mon May 13 22:05:10 1991 +0000 @@ -23,8 +23,9 @@ ;; The command is found in this-command ;; and the keys are returned by (this-command-keys). -;;;###autoload (setq disabled-command-hook 'disabled-command-hook) ;;;###autoload +(setq disabled-command-hook 'disabled-command-hook) + (defun disabled-command-hook (&rest ignore) (let (char) (save-window-excursion
--- a/lisp/replace.el Mon May 13 21:21:58 1991 +0000 +++ b/lisp/replace.el Mon May 13 22:05:10 1991 +0000 @@ -18,8 +18,9 @@ ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;;###autoload (defconst case-replace t "\ -;;;###autoload *Non-nil means query-replace should preserve case in replacements.") +;;;###autoload +(defconst case-replace t "\ +*Non-nil means query-replace should preserve case in replacements.") ;;;###autoload (defun query-replace (from-string to-string &optional arg) @@ -34,7 +35,8 @@ (interactive "sQuery replace: \nsQuery replace %s with: \nP") (perform-replace from-string to-string t nil arg) (message "Done")) -;;;###autoload (define-key esc-map "%" 'query-replace) +;;;###autoload +(define-key esc-map "%" 'query-replace) ;;;###autoload (defun query-replace-regexp (regexp to-string &optional arg)
--- a/lisp/time.el Mon May 13 21:21:58 1991 +0000 +++ b/lisp/time.el Mon May 13 22:05:10 1991 +0000 @@ -22,8 +22,9 @@ "*File name of mail inbox file, for indicating existence of new mail. Default is system-dependent, and is the same as used by Rmail.") -;;;###autoload (defconst display-time-day-and-date nil -;;;###autoload "*Non-nil means \\[display-time] should display day and date as well as time.") +;;;###autoload +(defconst display-time-day-and-date nil \" +*Non-nil means \\[display-time] should display day and date as well as time.") (defvar display-time-process nil)