[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."
- master updated (76bcbe5f93 -> cd3ce6e541), Stefan Kangas, 2022/07/30
- master 53b1e6f96c 01/10: Make outline-view-change-hook obsolete, Stefan Kangas, 2022/07/30
- master 2e21074efd 08/10: Prefer defvar-keymap in dns-mode-map, Stefan Kangas, 2022/07/30
- master a109cdc8f2 04/10: ; * lisp/ffap.el: Comment cleanup., Stefan Kangas, 2022/07/30
- master ecfac493fa 03/10: Make ffap-newfile-prompt obsolete, Stefan Kangas, 2022/07/30
- master 7e84db9484 07/10: Prefer defvar-keymap in nroff-mode-map,
Stefan Kangas <=
- master 9bdcca553f 05/10: ; * lisp/emacs-lisp/regi.el: Delete incorrect "last modified" comment., Stefan Kangas, 2022/07/30
- master fc79bb6ffc 02/10: * lisp/ffap.el (ffap-url-regexp): Add gemini., Stefan Kangas, 2022/07/30
- master cd3ce6e541 10/10: * lisp/apropos.el (apropos-documentation): Simplify., Stefan Kangas, 2022/07/30
- master f08f5b7afe 09/10: Avoid leaving temp buffers in bib-mode and refbib, Stefan Kangas, 2022/07/30
- master 454c06a22c 06/10: Fix namespace use in bib-mode.el, Stefan Kangas, 2022/07/30