Commit 73fa8346 authored by Brian Preble's avatar Brian Preble
Browse files

*** empty log message ***

parent 2f790b20
......@@ -104,4 +104,5 @@ C-l -- redisplay screen and ask again."
(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)
......@@ -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
......
......@@ -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
......
......@@ -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 @@ only matches surrounded by word boundaries."
(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)
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment