From 7229064dbf9dfcb873824a6f2a9af0bdb112b550 Mon Sep 17 00:00:00 2001
From: Roland McGrath <roland@gnu.org>
Date: Thu, 9 May 1991 21:50:34 +0000
Subject: [PATCH] *** empty log message ***

---
 lisp/emacs-lisp/backquote.el |  1 +
 lisp/ledit.el                | 19 ++++++++++++-------
 lisp/lpr.el                  |  9 +++++++--
 lisp/macros.el               |  5 +++++
 lisp/mail/mail-utils.el      |  2 +-
 lisp/mail/mailalias.el       |  1 +
 lisp/man.el                  |  1 +
 lisp/novice.el               |  4 ++++
 lisp/play/yow.el             |  2 ++
 lisp/server.el               |  1 +
 lisp/terminal.el             |  3 ++-
 lisp/textmodes/ispell4.el    |  4 ++++
 lisp/textmodes/picture.el    |  3 ++-
 lisp/textmodes/tex-mode.el   |  9 ++++++---
 lisp/time.el                 | 19 ++++++++++++++++---
 lisp/view.el                 |  3 +++
 16 files changed, 68 insertions(+), 18 deletions(-)

diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el
index 715a794d5f..3b9a071d37 100644
--- a/lisp/emacs-lisp/backquote.el
+++ b/lisp/emacs-lisp/backquote.el
@@ -90,6 +90,7 @@ a list-value atom"
 
 
 ;;; This is the interface 
+;;;###autoload
 (defmacro ` (form)
   "(` FORM)  is a macro that expands to code to construct FORM.
 Note that this is very slow in interpreted code, but fast if you compile.
diff --git a/lisp/ledit.el b/lisp/ledit.el
index 0428fa8b22..2471b3f485 100644
--- a/lisp/ledit.el
+++ b/lisp/ledit.el
@@ -32,13 +32,16 @@
   "File name for data sent to Lisp compiler by Ledit.")
 (defconst ledit-buffer "*LEDIT*"
   "Name of buffer in which Ledit accumulates data to send to Lisp.")
-;These are now in loaddefs.el
-;(defconst ledit-save-files t
-;  "*Non-nil means Ledit should save files before transferring to Lisp.")
-;(defconst ledit-go-to-lisp-string "%?lisp"
-;  "*Shell commands to execute to resume Lisp job.")
-;(defconst ledit-go-to-liszt-string "%?liszt"
-;  "*Shell commands to execute to resume Lisp compiler job.")
+
+;;;###autoload
+(defconst ledit-save-files t
+  "*Non-nil means Ledit should save files before transferring to Lisp.")
+;;;###autoload
+(defconst ledit-go-to-lisp-string "%?lisp"
+  "*Shell commands to execute to resume Lisp job.")
+;;;###autoload
+(defconst ledit-go-to-liszt-string "%?liszt"
+  "*Shell commands to execute to resume Lisp compiler job.")
 
 (defun ledit-save-defun ()
   "Save the current defun in the ledit buffer"
@@ -115,6 +118,7 @@
 
 (ledit-setup)
 
+;;;###autoload
 (defun ledit-mode ()
   "\\<ledit-mode-map>Major mode for editing text and stuffing it to a Lisp job.
 Like Lisp mode, plus these special commands:
@@ -131,6 +135,7 @@ do (setq lisp-mode-hook 'ledit-from-lisp-mode)"
   (lisp-mode)
   (ledit-from-lisp-mode))
 
+;;;###autoload
 (defun ledit-from-lisp-mode ()
   (use-local-map ledit-mode-map)
   (setq mode-name "Ledit")
diff --git a/lisp/lpr.el b/lisp/lpr.el
index 3ae55b2f24..74c5823614 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -18,8 +18,9 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-;(defconst lpr-switches nil
-;  "*List of strings to pass as extra switch args to lpr when it is invoked.")
+;;;###autoload
+(defconst lpr-switches nil
+  "*List of strings to pass as extra switch args to lpr when it is invoked.")
 
 (defvar lpr-command (if (eq system-type 'usg-unix-v)
 			"lp" "lpr")
@@ -29,24 +30,28 @@
   "Function to call to print the region on a printer.
 See definition of `print-region-1' for calling conventions.")
 
+;;;###autoload
 (defun lpr-buffer ()
   "Print buffer contents as with Unix command `lpr'.
 `lpr-switches' is a list of extra switches (strings) to pass to lpr."
   (interactive)
   (print-region-1 (point-min) (point-max) lpr-switches nil))
 
+;;;###autoload
 (defun print-buffer ()
   "Print buffer contents as with Unix command `lpr -p'.
 `lpr-switches' is a list of extra switches (strings) to pass to lpr."
   (interactive)
   (print-region-1 (point-min) (point-max) lpr-switches t))
 
+;;;###autoload
 (defun lpr-region (start end)
   "Print region contents as with Unix command `lpr'.
 `lpr-switches' is a list of extra switches (strings) to pass to lpr."
   (interactive "r")
   (print-region-1 start end lpr-switches nil))
 
+;;;###autoload
 (defun print-region (start end)
   "Print region contents as with Unix command `lpr -p'.
 `lpr-switches' is a list of extra switches (strings) to pass to lpr."
diff --git a/lisp/macros.el b/lisp/macros.el
index b318ff8eef..94d5fabb41 100644
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -18,6 +18,7 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
+;;;###autoload
 (defun name-last-kbd-macro (symbol)
   "Assign a name to the last keyboard macro defined.
 Argument SYMBOL is the name to define.
@@ -32,6 +33,7 @@ Such a \"function\" cannot be called from Lisp, but it is a valid editor command
 	      symbol))
   (fset symbol last-kbd-macro))
 
+;;;###autoload
 (defun insert-kbd-macro (macroname &optional keys)
   "Insert in buffer the definition of kbd macro NAME, as Lisp code.
 Optional second arg KEYS means also record the keys it is on
@@ -61,6 +63,7 @@ use this command, and then save the file."
 	  (insert ")\n")
 	  (setq keys (cdr keys))))))
 
+;;;###autoload
 (defun kbd-macro-query (flag)
   "Query user during kbd macro execution.
   With prefix argument, enters recursive edit, reading keyboard
@@ -100,3 +103,5 @@ C-l -- redisplay screen and ask again."
 		  ((= char ?\C-r)
 		   (let (executing-macro defining-kbd-macro)
 		     (recursive-edit))))))))))
+
+;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query)
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index a9eafa4b5e..cdfd6ff0b6 100644
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -20,7 +20,7 @@
 
 (provide 'mail-utils)
 		     
-;; should be in loaddefs
+;;;###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
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 792514330f..7201d0182e 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -130,6 +130,7 @@ removed from alias expansions."
 
 ;; Always autoloadable in case the user wants to define aliases
 ;; interactively or in .emacs.
+;;;###autoload
 (defun define-mail-alias (name definition)
   "Define NAME as a mail alias that translates to DEFINITION.
 This means that sending a message to NAME will actually send to DEFINITION.
diff --git a/lisp/man.el b/lisp/man.el
index a663373dea..8f517627e0 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -17,6 +17,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;;###autoload
 (defun manual-entry (topic &optional section)
   "Display the Unix manual entry for TOPIC.
 TOPIC is either the title of the entry, or has the form TITLE(SECTION)
diff --git a/lisp/novice.el b/lisp/novice.el
index a0417f14ef..caddf12074 100644
--- a/lisp/novice.el
+++ b/lisp/novice.el
@@ -23,6 +23,8 @@
 ;; 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
 (defun disabled-command-hook (&rest ignore)
   (let (char)
     (save-window-excursion
@@ -67,6 +69,7 @@ N to do nothing (command remains disabled)."))
     (if (/= char ?n)
 	(call-interactively this-command))))
 
+;;;###autoload
 (defun enable-command (command)
   "Allow COMMAND to be executed without special confirmation from now on.
 The user's .emacs file is altered so that this will apply
@@ -86,6 +89,7 @@ to future sessions."
    (setq foo (buffer-modified-p))
    (save-buffer)))
 
+;;;###autoload
 (defun disable-command (command)
   "Require special confirmation to execute COMMAND from now on.
 The user's .emacs file is altered so that this will apply
diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index e574b4fa90..46edb8e95f 100644
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -25,6 +25,7 @@
 ; Expects file emacs/etc/yow.lines to be in ITS-style LINS format
 ;  (ie strings terminated by ascii 0 characters.  Leading whitespace ignored)
 ; Everything up to the first \000 is a comment.
+;;;###autoload
 (defun yow (&optional n interactive)
   "Return or display a Zippy quotation."
   (interactive "P\np")
@@ -69,6 +70,7 @@
 ;
 ; written by Kayvan Aghaiepour
 
+;;;###autoload
 (defun psychoanalyze-pinhead ()
   "Zippy goes to the analyst."
   (interactive)
diff --git a/lisp/server.el b/lisp/server.el
index f6518777d2..e4259be4ff 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -114,6 +114,7 @@ by the programs that invoke the emacs server.")
 	((eq (process-status proc) 'signal)
 	 (server-log (message "Server subprocess killed")))))
 
+;;;###autoload
 (defun server-start (&optional leave-dead)
   "Allow this Emacs process to be a server for client processes.
 This starts a server communications subprocess through which
diff --git a/lisp/terminal.el b/lisp/terminal.el
index d2a514048c..47bfddba55 100644
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -982,6 +982,7 @@ of the virtual terminal to be appropriate for interactive use.")
 (defvar explicit-shell-file-name nil
   "*If non-nil, is file name to use for explicitly requested inferior shell.")
 
+;;;###autoload
 (defun terminal-emulator (buffer program args &optional width height)
   "Under a display-terminal emulator in BUFFER, run PROGRAM on arguments ARGS.
 ARGS is a list of argument-strings.  Remaining arguments are WIDTH and HEIGHT.
@@ -1225,4 +1226,4 @@ of the terminal-emulator"
 					     end
 					     (1+ end)))
 		   start (1+ end)))
-	   (concat "\"" harder "\"")))))
\ No newline at end of file
+	   (concat "\"" harder "\"")))))
diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el
index 782ea43103..3ca6215051 100644
--- a/lisp/textmodes/ispell4.el
+++ b/lisp/textmodes/ispell4.el
@@ -185,6 +185,7 @@ word		any word is checked for spelling.  Result is
 (defun ispell-tex-buffer-p ()
   (memq major-mode '(plain-TeX-mode LaTeX-mode)))
 
+;;;###autoload
 (defun ispell (&optional buf start end)
   "Run ispell over current buffer's visited file.
 First the file is scanned for misspelled words, then ispell
@@ -287,6 +288,7 @@ q, \\[keyboard-quit]	Leave the command loop.  You can come back later with \\[is
   (ispell-dump))
 
 
+;;;###autoload
 (defun ispell-word ()
   "Check the spelling of the word under the cursor.
 See `ispell' for more information."
@@ -301,7 +303,9 @@ See `ispell' for more information."
 	    (load-library "spell")
 	    (define-key esc-map "$" 'spell-word)
 	    (spell-word))))))
+;;;###autoload (define-key esc-map "$" 'ispell-word)
 
+;;;###autoload
 (defun ispell-region (start &optional end)
   "Check the spelling for all of the words in the region."
   (interactive "r")
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index d6915c4b0a..6c8b7a60b7 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -450,6 +450,7 @@ Leaves the region surrounding the rectangle."
   "If non-nil, it's value is called on entry to Picture mode.
 Picture mode is invoked by the command \\[edit-picture].")
 
+;;;###autoload
 (defun edit-picture ()
   "Switch to Picture mode, in which a quarter-plane screen model is used.
 Printing characters replace instead of inserting themselves with motion
@@ -532,7 +533,7 @@ they are not defaultly assigned to keys."
       "Type \\[picture-mode-exit] in this buffer to return it to %s mode.")
      picture-mode-old-mode-name)))
 
-(fset 'picture-mode 'edit-picture)	; for the confused
+;;;###autoload (fset 'picture-mode 'edit-picture)
 
 (defun picture-mode-exit (&optional nostrip)
   "Undo edit-picture and return to previous major mode.
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 34daea299a..be0b4037be 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -140,6 +140,7 @@ Set by \\[tex-region], \\[tex-buffer], and \\[tex-file].")
 
 ;;; This would be a lot simpler if we just used a regexp search,
 ;;; but then it would be too slow.
+;;;###autoload
 (defun tex-mode ()
   "Major mode for editing files of input for TeX, LaTeX, or SliTeX.
 Tries to determine (by looking at the beginning of the file) whether
@@ -164,10 +165,10 @@ is used."
 		       'plain-tex-mode))))
     (if mode (funcall mode)
       (funcall tex-default-mode))))
+;;;###autoload (fset 'TeX-mode 'tex-mode)
+;;;###autoload (fset 'LaTeX-mode 'latex-mode)
 
-(fset 'plain-TeX-mode 'plain-tex-mode)
-(fset 'LaTeX-mode 'latex-mode)
-
+;;;###autoload
 (defun plain-tex-mode ()
   "Major mode for editing files of input for plain TeX.
 Makes $ and } display the characters they match.
@@ -214,7 +215,9 @@ subshell is initiated, the value of tex-shell-hook is called."
   (setq tex-end-of-header "%**end of header")
   (setq tex-trailer "\\bye\n")
   (run-hooks 'text-mode-hook 'tex-mode-hook 'plain-tex-mode-hook))
+;;;###autoload (fset 'plain-TeX-mode 'plain-tex-mode)
 
+;;;###autoload
 (defun latex-mode ()
   "Major mode for editing files of input for LaTeX.
 Makes $ and } display the characters they match.
diff --git a/lisp/time.el b/lisp/time.el
index 8a1f37f8e1..fe29ca567d 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -22,6 +22,10 @@
   "*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 "\
+*Non-nil means \\[display-time] should display day and date as well as time.")
+
 (defvar display-time-process nil)
 
 (defvar display-time-interval 60
@@ -32,6 +36,7 @@ Default is system-dependent, and is the same as used by Rmail.")
 (defvar display-time-hook nil
   "* List of functions to be called when the time is updated on the mode line.")
 
+;;;###autoload
 (defun display-time ()
   "Display current time and load level in mode line of each buffer.
 Updates automatically every minute.
@@ -52,7 +57,7 @@ After each update, `display-time-hook' is run with `run-hooks'."
 	  (setq display-time-string "")
 	  (setq display-time-process
 		(start-process "display-time" nil
-			       "wakeup"
+			       (concat exec-directory "wakeup")
 			       (int-to-string display-time-interval)))
 	  (process-kill-without-query display-time-process)
 	  (set-process-sentinel display-time-process 'display-time-sentinel)
@@ -68,7 +73,10 @@ After each update, `display-time-hook' is run with `run-hooks'."
 
 (defun display-time-filter (proc string)
   (let ((time (current-time-string))
-	(load (format "%03d" (car (load-average))))
+	(load (condition-case ()
+		  (if (zerop (car (load-average))) ""
+		    (format "%03d" (car (load-average))))
+		(error "")))
 	(mail-spool-file (or display-time-mail-file
 			     (getenv "MAIL")
 			     (concat rmail-spool-directory
@@ -88,7 +96,7 @@ After each update, `display-time-hook' is run with `run-hooks'."
 		  (substring load 0 -2) "." (substring load -2)
 		  (if (and (file-exists-p mail-spool-file)
 			   ;; file not empty?
-			   (> (nth 7 (file-attributes mail-spool-file)) 0))
+			   (display-time-file-nonempty-p mail-spool-file))
 		      " Mail"
 		    "")))
     ;; Append the date if desired.
@@ -101,3 +109,8 @@ After each update, `display-time-hook' is run with `run-hooks'."
   (set-buffer-modified-p (buffer-modified-p))
   ;; Do redisplay right now, if no input pending.
   (sit-for 0))
+
+(defun display-time-file-nonempty-p (file)
+  (while (file-symlink-p file)
+    (setq file (file-symlink-p file)))
+  (> (nth 7 (file-attributes file)) 0))
diff --git a/lisp/view.el b/lisp/view.el
index 36f0d7bb63..8b0324cfbb 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -90,6 +90,7 @@
   )
 
 
+;;;###autoload
 (defun view-file (file-name)
   "View FILE in View mode, returning to previous buffer when done.
 The usual Emacs commands are not available; instead,
@@ -108,6 +109,7 @@ Calls the value of  view-hook  if that is non-nil."
 	       (and (not had-a-buf) (not (buffer-modified-p buf-to-view))
 		    'kill-buffer))))
 
+;;;###autoload
 (defun view-buffer (buffer-name)
   "View BUFFER in View mode, returning to previous buffer when done.
 The usual Emacs commands are not available; instead,
@@ -122,6 +124,7 @@ Calls the value of  view-hook  if that is non-nil."
     (switch-to-buffer buffer-name t)
     (view-mode old-buf nil)))
 
+;;;###autoload
 (defun view-mode (&optional prev-buffer action)
   "Major mode for viewing text but not editing it.
 Letters do not insert themselves.  Instead these commands are provided.
-- 
2.20.1