Commit 6503cec3 authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent 73fa8346
......@@ -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."
......
......@@ -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"
......
......@@ -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")
......
......@@ -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
......
......@@ -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)
......
......@@ -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.
......
......@@ -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 ()
......
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