[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/nroff-mode.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/nroff-mode.el,v |
Date: |
Fri, 04 Apr 2008 22:45:05 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 08/04/04 22:45:04
Index: textmodes/nroff-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/nroff-mode.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- textmodes/nroff-mode.el 8 Jan 2008 20:45:42 -0000 1.38
+++ textmodes/nroff-mode.el 4 Apr 2008 22:44:59 -0000 1.39
@@ -49,13 +49,32 @@
:type 'boolean)
(defvar nroff-mode-map
- (let ((map (make-sparse-keymap)))
+ (let ((map (make-sparse-keymap))
+ (menu-map (make-sparse-keymap)))
(define-key map "\t" 'tab-to-tab-stop)
(define-key map "\es" 'center-line)
(define-key map "\e?" 'nroff-count-text-lines)
(define-key map "\n" 'nroff-electric-newline)
(define-key map "\en" 'nroff-forward-text-line)
(define-key map "\ep" 'nroff-backward-text-line)
+ (define-key map [menu-bar nroff-mode] (cons "Nroff" menu-map))
+ (define-key menu-map [nn]
+ '(menu-item "Newline" nroff-electric-newline
+ :help "Insert newline for nroff mode; special if
nroff-electric mode"))
+ (define-key menu-map [nc]
+ '(menu-item "Count text lines" nroff-count-text-lines
+ :help "Count lines in region, except for nroff request
lines."))
+ (define-key menu-map [nf]
+ '(menu-item "Forward text line" nroff-forward-text-line
+ :help "Go forward one nroff text line, skipping lines of
nroff requests"))
+ (define-key menu-map [nb]
+ '(menu-item "Backward text line" nroff-backward-text-line
+ :help "Go backward one nroff text line, skipping lines of
nroff requests"))
+ (define-key menu-map [ne]
+ '(menu-item "Electric newline mode"
+ nroff-electric-mode
+ :help "Auto insert closing requests if necessary"
+ :button (:toggle . nroff-electric-mode)))
map)
"Major mode keymap for `nroff-mode'.")
@@ -247,8 +266,8 @@
(".de" . "..")))
(defun nroff-electric-newline (arg)
- "Insert newline for nroff mode; special if electric-nroff mode.
-In `electric-nroff-mode', if ending a line containing an nroff opening request,
+ "Insert newline for nroff mode; special if nroff-electric mode.
+In `nroff-electric-mode', if ending a line containing an nroff opening request,
automatically inserts the matching closing request after point."
(interactive "P")
(let ((completion (save-excursion
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/nroff-mode.el,v,
Dan Nicolaescu <=