emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 7e84db9484 07/10: Prefer defvar-keymap in nroff-mode-map


From: Stefan Kangas
Subject: master 7e84db9484 07/10: Prefer defvar-keymap in nroff-mode-map
Date: Sat, 30 Jul 2022 06:12:06 -0400 (EDT)

branch: master
commit 7e84db9484f59f3409d5c4e0d9b8a432381c2f15
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Prefer defvar-keymap in nroff-mode-map
    
    * lisp/textmodes/nroff-mode.el (nroff-mode-map): Prefer defvar-keymap.
---
 lisp/textmodes/nroff-mode.el | 23 +++++++++--------------
 1 file changed, 9 insertions(+), 14 deletions(-)

diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el
index 435423d31e..4d1de18b2c 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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]