summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorJim Blandy <jimb@redhat.com>1991-05-13 22:05:14 +0000
committerJim Blandy <jimb@redhat.com>1991-05-13 22:05:14 +0000
commit6503cec3499f6b722f40304d78a10f9d79ed5165 (patch)
treeae36a1ffcbee5ac5600a301b06de785c0dd15739 /lisp
parent73fa8346460c784807ee160905baad816913c446 (diff)
downloademacs-6503cec3499f6b722f40304d78a10f9d79ed5165.tar.gz
*** empty log message ***
Diffstat (limited to 'lisp')
-rw-r--r--lisp/indent.el5
-rw-r--r--lisp/ledit.el15
-rw-r--r--lisp/lpr.el5
-rw-r--r--lisp/reposition.el3
-rw-r--r--lisp/textmodes/paragraphs.el39
-rw-r--r--lisp/textmodes/picture.el3
-rw-r--r--lisp/textmodes/tex-mode.el9
7 files changed, 47 insertions, 32 deletions
diff --git a/lisp/indent.el b/lisp/indent.el
index 54588db1b8b..781a1897dd7 100644
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -18,8 +18,9 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;###autoload (defvar indent-line-function 'indent-to-left-margin "\
-;;;###autoload Function to indent current line.");Now in loaddefs.el
+;;;###autoload
+(defvar indent-line-function 'indent-to-left-margin "\
+Function to indent current line.");Now in loaddefs.el
(defun indent-according-to-mode ()
"Indent line in proper way for current major mode."
diff --git a/lisp/ledit.el b/lisp/ledit.el
index 298c254e8db..7981ef851fd 100644
--- a/lisp/ledit.el
+++ b/lisp/ledit.el
@@ -33,12 +33,15 @@
(defconst ledit-buffer "*LEDIT*"
"Name of buffer in which Ledit accumulates data to send to Lisp.")
-;;;###autoload (defconst ledit-save-files t
-;;;###autoload "*Non-nil means Ledit should save files before transferring to Lisp.")
-;;;###autoload (defconst ledit-go-to-lisp-string "%?lisp"
-;;;###autoload "*Shell commands to execute to resume Lisp job.")
-;;;###autoload (defconst ledit-go-to-liszt-string "%?liszt"
-;;;###autoload "*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"
diff --git a/lisp/lpr.el b/lisp/lpr.el
index 5c363301747..e377f4c9331 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -18,8 +18,9 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;###autoload (defconst lpr-switches nil
-;;;###autoload "*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")
diff --git a/lisp/reposition.el b/lisp/reposition.el
index dcf7b457b75..97b6ec2419d 100644
--- a/lisp/reposition.el
+++ b/lisp/reposition.el
@@ -161,7 +161,8 @@ first comment line visible (if point is in a comment)."
;;(repos-debug-macro "4")
))))
-;;;###autoload (define-key esc-map "\C-l" 'resposition-window)
+;;;###autoload
+(define-key esc-map "\C-l" 'resposition-window)
;;; Auxiliary functions
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index 4241c43e7b1..55b9fc6e45a 100644
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -18,23 +18,28 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;###autoload (defconst paragraph-start "^[ \t\n\f]"
-;;;###autoload "*Regexp for beginning of a line that starts OR separates paragraphs.")
-
-;;;###autoload (defconst paragraph-separate "^[ \t\f]*$"
-;;;###autoload "*Regexp for beginning of a line that separates paragraphs.
-;;;###autoload If you change this, you may have to change paragraph-start also.")
-
-;;;###autoload (defconst sentence-end (purecopy "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") "\
-;;;###autoload *Regexp describing the end of a sentence.
-;;;###autoload All paragraph boundaries also end sentences, regardless.")
-
-;;;###autoload (defconst page-delimiter "^\014" "\
-;;;###autoload *Regexp describing line-beginnings that separate pages.")
-
-;;;###autoload (defvar paragraph-ignore-fill-prefix nil
-;;;###autoload "Non-nil means the paragraph commands are not affected by `fill-prefix'.
-;;;###autoload This is desirable in modes where blank lines are the paragraph delimiters.")
+;;;###autoload
+(defconst paragraph-start "^[ \t\n\f]" "\
+*Regexp for beginning of a line that starts OR separates paragraphs.")
+
+;;;###autoload
+(defconst paragraph-separate "^[ \t\f]*$" "\
+*Regexp for beginning of a line that separates paragraphs.
+If you change this, you may have to change paragraph-start also.")
+
+;;;###autoload
+(defconst sentence-end (purecopy "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") "\
+*Regexp describing the end of a sentence.
+All paragraph boundaries also end sentences, regardless.")
+
+;;;###autoload
+(defconst page-delimiter "^\014" "\
+*Regexp describing line-beginnings that separate pages.")
+
+;;;###autoload
+(defvar paragraph-ignore-fill-prefix nil "\
+Non-nil means the paragraph commands are not affected by `fill-prefix'.
+This is desirable in modes where blank lines are the paragraph delimiters.")
(defun forward-paragraph (&optional arg)
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index 6c8b7a60b79..2c1ab18bef2 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -533,7 +533,8 @@ 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)))
-;;;###autoload (fset 'picture-mode 'edit-picture)
+;;;###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 be0b4037bed..3f0a062a11d 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -165,8 +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)
+;;;###autoload
+(fset 'TeX-mode 'tex-mode)
+;;;###autoload
+(fset 'LaTeX-mode 'latex-mode)
;;;###autoload
(defun plain-tex-mode ()
@@ -215,7 +217,8 @@ 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
+(fset 'plain-TeX-mode 'plain-tex-mode)
;;;###autoload
(defun latex-mode ()