diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-07-30 09:46:20 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-07-30 12:07:49 +0200 |
commit | 7e84db9484f59f3409d5c4e0d9b8a432381c2f15 (patch) | |
tree | 63d2f6896ddf7b7f01d9e146466534c01490dbac /lisp/textmodes/nroff-mode.el | |
parent | 454c06a22c8b2ddb177d2e613807fc206ba29da7 (diff) | |
download | emacs-7e84db9484f59f3409d5c4e0d9b8a432381c2f15.tar.gz |
Prefer defvar-keymap in nroff-mode-map
* lisp/textmodes/nroff-mode.el (nroff-mode-map): Prefer defvar-keymap.
Diffstat (limited to 'lisp/textmodes/nroff-mode.el')
-rw-r--r-- | lisp/textmodes/nroff-mode.el | 23 |
1 files changed, 9 insertions, 14 deletions
diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el index 435423d31e5..4d1de18b2c8 100644 --- a/lisp/textmodes/nroff-mode.el +++ b/lisp/textmodes/nroff-mode.el @@ -1,7 +1,6 @@ ;;; nroff-mode.el --- GNU Emacs major mode for editing nroff source -*- lexical-binding: t -*- -;; Copyright (C) 1985-1986, 1994-1995, 1997, 2001-2022 Free Software -;; Foundation, Inc. +;; Copyright (C) 1985-2022 Free Software Foundation, Inc. ;; Maintainer: emacs-devel@gnu.org ;; Keywords: wp @@ -45,16 +44,14 @@ "Non-nil means automatically closing requests when you insert an open." :type 'boolean) -(defvar nroff-mode-map - (let ((map (make-sparse-keymap))) - (define-key map "\t" #'tab-to-tab-stop) - (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 "\C-c\C-c" #'nroff-view) - map) - "Major mode keymap for `nroff-mode'.") +(defvar-keymap nroff-mode-map + :doc "Major mode keymap for `nroff-mode'." + "TAB" #'tab-to-tab-stop + "M-?" #'nroff-count-text-lines + "C-j" #'nroff-electric-newline + "M-n" #'nroff-forward-text-line + "M-p" #'nroff-backward-text-line + "C-c C-c" #'nroff-view) (easy-menu-define nroff-mode-menu nroff-mode-map "Menu for `nroff-mode'." @@ -160,8 +157,6 @@ closing requests for requests that are used in matched pairs." (skip-chars-forward ".H ") (string-to-number (buffer-substring (point) (+ 1 (point)))))) -;; Compute how much to indent a comment in nroff/troff source. -;; By mit-erl!gildea April 86 (defun nroff-comment-indent () "Compute indent for an nroff/troff comment. Puts a full-stop before comments on a line by themselves." |