+ (define-key map "\C-c\C-c" 'nroff-view)
+ (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)))
+ (define-key menu-map [npm]
+ '(menu-item "Preview as man page" nroff-view
+ :help "Run man on this file."))