Mercurial > emacs
changeset 256:7e4c7ef44243
*** empty log message ***
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Thu, 09 May 1991 21:50:34 +0000 |
| parents | cdf87250ed27 |
| children | e5ba2ba35226 |
| files | lisp/=man.el lisp/emacs-lisp/backquote.el lisp/ledit.el lisp/lpr.el lisp/macros.el lisp/mail/mail-utils.el lisp/mail/mailalias.el lisp/novice.el lisp/play/yow.el lisp/server.el lisp/terminal.el lisp/textmodes/=ispell4.el lisp/textmodes/picture.el lisp/textmodes/tex-mode.el lisp/time.el lisp/view.el |
| diffstat | 16 files changed, 68 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=man.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/=man.el Thu May 09 21:50:34 1991 +0000 @@ -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)
--- a/lisp/emacs-lisp/backquote.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/emacs-lisp/backquote.el Thu May 09 21:50:34 1991 +0000 @@ -90,6 +90,7 @@ ;;; 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.
--- a/lisp/ledit.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/ledit.el Thu May 09 21:50:34 1991 +0000 @@ -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 @@ (lisp-mode) (ledit-from-lisp-mode)) +;;;###autoload (defun ledit-from-lisp-mode () (use-local-map ledit-mode-map) (setq mode-name "Ledit")
--- a/lisp/lpr.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/lpr.el Thu May 09 21:50:34 1991 +0000 @@ -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."
--- a/lisp/macros.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/macros.el Thu May 09 21:50:34 1991 +0000 @@ -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 @@ 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 @@ (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 @@ ((= char ?\C-r) (let (executing-macro defining-kbd-macro) (recursive-edit)))))))))) + +;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query)
--- a/lisp/mail/mail-utils.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/mail/mail-utils.el Thu May 09 21:50:34 1991 +0000 @@ -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
--- a/lisp/mail/mailalias.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/mail/mailalias.el Thu May 09 21:50:34 1991 +0000 @@ -130,6 +130,7 @@ ;; 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.
--- a/lisp/novice.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/novice.el Thu May 09 21:50:34 1991 +0000 @@ -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 @@ (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 @@ (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
--- a/lisp/play/yow.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/play/yow.el Thu May 09 21:50:34 1991 +0000 @@ -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)
--- a/lisp/server.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/server.el Thu May 09 21:50:34 1991 +0000 @@ -114,6 +114,7 @@ ((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
--- a/lisp/terminal.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/terminal.el Thu May 09 21:50:34 1991 +0000 @@ -982,6 +982,7 @@ (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 @@ end (1+ end))) start (1+ end))) - (concat "\"" harder "\""))))) \ No newline at end of file + (concat "\"" harder "\"")))))
--- a/lisp/textmodes/=ispell4.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/textmodes/=ispell4.el Thu May 09 21:50:34 1991 +0000 @@ -185,6 +185,7 @@ (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 @@ (ispell-dump)) +;;;###autoload (defun ispell-word () "Check the spelling of the word under the cursor. See `ispell' for more information." @@ -301,7 +303,9 @@ (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")
--- a/lisp/textmodes/picture.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/textmodes/picture.el Thu May 09 21:50:34 1991 +0000 @@ -450,6 +450,7 @@ "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 @@ "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.
--- a/lisp/textmodes/tex-mode.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/textmodes/tex-mode.el Thu May 09 21:50:34 1991 +0000 @@ -140,6 +140,7 @@ ;;; 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 @@ '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 @@ (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.
--- a/lisp/time.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/time.el Thu May 09 21:50:34 1991 +0000 @@ -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 @@ (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 @@ (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 @@ (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 @@ (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 @@ (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))
--- a/lisp/view.el Thu May 09 17:10:09 1991 +0000 +++ b/lisp/view.el Thu May 09 21:50:34 1991 +0000 @@ -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 @@ (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 @@ (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.