Commit 7229064d authored by Roland McGrath's avatar Roland McGrath

*** empty log message ***

parent d6003f63
......@@ -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.
......
......@@ -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")
......
......@@ -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."
......
......@@ -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)
......@@ -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
......
......@@ -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.
......
......@@ -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)
......
......@@ -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
......
......@@ -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)
......
......@@ -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
......
......@@ -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 "\"")))))
......@@ -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")
......
......@@ -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.
......
......@@ -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.
......
......@@ -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))
......@@ -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.
......
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