Mercurial > emacs
comparison lisp/textmodes/nroff-mode.el @ 93674:44fab469d68d
* outline.el (outline-mode-menu-bar-map):
* term.el (terminal-signal-menu): Add :help.
* net/eudc.el (eudc-mode-map): Declare and define in one step.
(eudc-tail-menu, eudc-server-menu, eudc-tools-menu): Add :help.
* emacs-lisp/re-builder.el (reb-mode-map):
* textmodes/nroff-mode.el (nroff-mode-map): Add menus.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 04 Apr 2008 22:45:01 +0000 |
| parents | 107ccd98fa12 |
| children | f4a69fedbd46 |
comparison
equal
deleted
inserted
replaced
| 93673:928315b10669 | 93674:44fab469d68d |
|---|---|
| 47 "Non-nil means automatically closing requests when you insert an open." | 47 "Non-nil means automatically closing requests when you insert an open." |
| 48 :group 'nroff | 48 :group 'nroff |
| 49 :type 'boolean) | 49 :type 'boolean) |
| 50 | 50 |
| 51 (defvar nroff-mode-map | 51 (defvar nroff-mode-map |
| 52 (let ((map (make-sparse-keymap))) | 52 (let ((map (make-sparse-keymap)) |
| 53 (menu-map (make-sparse-keymap))) | |
| 53 (define-key map "\t" 'tab-to-tab-stop) | 54 (define-key map "\t" 'tab-to-tab-stop) |
| 54 (define-key map "\es" 'center-line) | 55 (define-key map "\es" 'center-line) |
| 55 (define-key map "\e?" 'nroff-count-text-lines) | 56 (define-key map "\e?" 'nroff-count-text-lines) |
| 56 (define-key map "\n" 'nroff-electric-newline) | 57 (define-key map "\n" 'nroff-electric-newline) |
| 57 (define-key map "\en" 'nroff-forward-text-line) | 58 (define-key map "\en" 'nroff-forward-text-line) |
| 58 (define-key map "\ep" 'nroff-backward-text-line) | 59 (define-key map "\ep" 'nroff-backward-text-line) |
| 60 (define-key map [menu-bar nroff-mode] (cons "Nroff" menu-map)) | |
| 61 (define-key menu-map [nn] | |
| 62 '(menu-item "Newline" nroff-electric-newline | |
| 63 :help "Insert newline for nroff mode; special if nroff-electric mode")) | |
| 64 (define-key menu-map [nc] | |
| 65 '(menu-item "Count text lines" nroff-count-text-lines | |
| 66 :help "Count lines in region, except for nroff request lines.")) | |
| 67 (define-key menu-map [nf] | |
| 68 '(menu-item "Forward text line" nroff-forward-text-line | |
| 69 :help "Go forward one nroff text line, skipping lines of nroff requests")) | |
| 70 (define-key menu-map [nb] | |
| 71 '(menu-item "Backward text line" nroff-backward-text-line | |
| 72 :help "Go backward one nroff text line, skipping lines of nroff requests")) | |
| 73 (define-key menu-map [ne] | |
| 74 '(menu-item "Electric newline mode" | |
| 75 nroff-electric-mode | |
| 76 :help "Auto insert closing requests if necessary" | |
| 77 :button (:toggle . nroff-electric-mode))) | |
| 59 map) | 78 map) |
| 60 "Major mode keymap for `nroff-mode'.") | 79 "Major mode keymap for `nroff-mode'.") |
| 61 | 80 |
| 62 (defvar nroff-mode-syntax-table | 81 (defvar nroff-mode-syntax-table |
| 63 (let ((st (copy-syntax-table text-mode-syntax-table))) | 82 (let ((st (copy-syntax-table text-mode-syntax-table))) |
| 245 (".na" . ".ad b") | 264 (".na" . ".ad b") |
| 246 (".nf" . ".fi") | 265 (".nf" . ".fi") |
| 247 (".de" . ".."))) | 266 (".de" . ".."))) |
| 248 | 267 |
| 249 (defun nroff-electric-newline (arg) | 268 (defun nroff-electric-newline (arg) |
| 250 "Insert newline for nroff mode; special if electric-nroff mode. | 269 "Insert newline for nroff mode; special if nroff-electric mode. |
| 251 In `electric-nroff-mode', if ending a line containing an nroff opening request, | 270 In `nroff-electric-mode', if ending a line containing an nroff opening request, |
| 252 automatically inserts the matching closing request after point." | 271 automatically inserts the matching closing request after point." |
| 253 (interactive "P") | 272 (interactive "P") |
| 254 (let ((completion (save-excursion | 273 (let ((completion (save-excursion |
| 255 (beginning-of-line) | 274 (beginning-of-line) |
| 256 (and (null arg) | 275 (and (null arg) |