aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBrian Preble1991-04-10 15:18:52 +0000
committerBrian Preble1991-04-10 15:18:52 +0000
commit6d1f885f5c535ff4369a0807cd4d706d512350ce (patch)
tree19e6d945057709d10f5bd78fb9feead52bc41268
parenta09635667661436b3a1946c5966d9fc522d987cd (diff)
downloademacs-6d1f885f5c535ff4369a0807cd4d706d512350ce.tar.gz
emacs-6d1f885f5c535ff4369a0807cd4d706d512350ce.zip
*** empty log message ***
-rw-r--r--lisp/options.el13
-rw-r--r--lisp/textmodes/nroff-mode.el19
2 files changed, 16 insertions, 16 deletions
diff --git a/lisp/options.el b/lisp/options.el
index b30dc004c1c..e67346cab63 100644
--- a/lisp/options.el
+++ b/lisp/options.el
@@ -67,16 +67,17 @@ Type \\[describe-mode] in that buffer for a list of commands."
67(put 'Edit-options-mode 'mode-class 'special) 67(put 'Edit-options-mode 'mode-class 'special)
68 68
69(defun Edit-options-mode () 69(defun Edit-options-mode ()
70 "Major mode for editing Emacs user option settings. 70 "\\<Edit-options-mode-map>\
71Major mode for editing Emacs user option settings.
71Special commands are: 72Special commands are:
72s -- set variable point points at. New value read using minibuffer. 73\\[Edit-options-set] -- set variable point points at. New value read using minibuffer.
73x -- toggle variable, t -> nil, nil -> t. 74\\[Edit-options-toggle] -- toggle variable, t -> nil, nil -> t.
741 -- set variable to t. 75\\[Edit-options-t] -- set variable to t.
750 -- set variable to nil. 76\\[Edit-options-nil] -- set variable to nil.
76Changed values made by these commands take effect immediately. 77Changed values made by these commands take effect immediately.
77 78
78Each variable description is a paragraph. 79Each variable description is a paragraph.
79For convenience, the characters p and n move back and forward by paragraphs." 80For convenience, the characters \\[backward-paragraph] and \\[forward-paragraph] move back and forward by paragraphs."
80 (kill-all-local-variables) 81 (kill-all-local-variables)
81 (set-syntax-table emacs-lisp-mode-syntax-table) 82 (set-syntax-table emacs-lisp-mode-syntax-table)
82 (use-local-map Edit-options-mode-map) 83 (use-local-map Edit-options-mode-map)
diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el
index 16e1445080b..35bf4213615 100644
--- a/lisp/textmodes/nroff-mode.el
+++ b/lisp/textmodes/nroff-mode.el
@@ -23,7 +23,7 @@
23 "Abbrev table used while in nroff mode.") 23 "Abbrev table used while in nroff mode.")
24 24
25(defvar nroff-mode-map nil 25(defvar nroff-mode-map nil
26 "Major mode keymap for nroff-mode buffers") 26 "Major mode keymap for nroff mode.")
27(if (not nroff-mode-map) 27(if (not nroff-mode-map)
28 (progn 28 (progn
29 (setq nroff-mode-map (make-sparse-keymap)) 29 (setq nroff-mode-map (make-sparse-keymap))
@@ -37,8 +37,8 @@
37(defun nroff-mode () 37(defun nroff-mode ()
38 "Major mode for editing text intended for nroff to format. 38 "Major mode for editing text intended for nroff to format.
39\\{nroff-mode-map} 39\\{nroff-mode-map}
40Turning on Nroff mode runs text-mode-hook, then nroff-mode-hook. 40Turning on Nroff mode runs `text-mode-hook', then `nroff-mode-hook'.
41Also, try nroff-electric-mode, for automatically inserting 41Also, try `nroff-electric-mode', for automatically inserting
42closing requests for requests that are used in matched pairs." 42closing requests for requests that are used in matched pairs."
43 (interactive) 43 (interactive)
44 (kill-all-local-variables) 44 (kill-all-local-variables)
@@ -165,7 +165,7 @@ An argument is a repeat count; negative means move forward."
165 165
166(defun electric-nroff-newline (arg) 166(defun electric-nroff-newline (arg)
167 "Insert newline for nroff mode; special if electric-nroff mode. 167 "Insert newline for nroff mode; special if electric-nroff mode.
168In electric-nroff-mode, if ending a line containing an nroff opening request, 168In `electric-nroff-mode', if ending a line containing an nroff opening request,
169automatically inserts the matching closing request after point." 169automatically inserts the matching closing request after point."
170 (interactive "P") 170 (interactive "P")
171 (let ((completion (save-excursion 171 (let ((completion (save-excursion
@@ -185,12 +185,11 @@ automatically inserts the matching closing request after point."
185 (forward-char 1)))) 185 (forward-char 1))))
186 186
187(defun electric-nroff-mode (&optional arg) 187(defun electric-nroff-mode (&optional arg)
188 "Toggle nroff-electric-newline minor mode 188 "Toggle `nroff-electric-newline' minor mode.
189Nroff-electric-newline forces emacs to check for an nroff 189`nroff-electric-newline' forces Emacs to check for an nroff request at the
190request at the beginning of the line, and insert the 190beginning of the line, and insert the matching closing request if necessary.
191matching closing request if necessary. 191This command toggles that mode (off->on, on->off), with an argument,
192This command toggles that mode (off->on, on->off), 192turns it on iff arg is positive, otherwise off."
193with an argument, turns it on iff arg is positive, otherwise off."
194 (interactive "P") 193 (interactive "P")
195 (or (eq major-mode 'nroff-mode) (error "Must be in nroff mode")) 194 (or (eq major-mode 'nroff-mode) (error "Must be in nroff mode"))
196 (or (assq 'nroff-electric-mode minor-mode-alist) 195 (or (assq 'nroff-electric-mode minor-mode-alist)