[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 4993050c2a 1/5: * lisp/calendar/diary-lib.el (diary-mode-map): Pr
From: |
Stefan Kangas |
Subject: |
master 4993050c2a 1/5: * lisp/calendar/diary-lib.el (diary-mode-map): Prefer defvar-keymap. |
Date: |
Wed, 11 May 2022 10:12:12 -0400 (EDT) |
branch: master
commit 4993050c2aacee2d05b090861566a7f3a56cb64c
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
* lisp/calendar/diary-lib.el (diary-mode-map): Prefer defvar-keymap.
---
lisp/calendar/diary-lib.el | 13 +++++--------
1 file changed, 5 insertions(+), 8 deletions(-)
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 45df0c6259..48dbf33adf 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -1,7 +1,6 @@
;;; diary-lib.el --- diary functions -*- lexical-binding:t -*-
-;; Copyright (C) 1989-1990, 1992-1995, 2001-2022 Free Software
-;; Foundation, Inc.
+;; Copyright (C) 1989-2022 Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
;; Maintainer: emacs-devel@gnu.org
@@ -2246,12 +2245,10 @@ Prefix argument ARG makes the entry nonmarking."
;; Return value suitable for `write-contents-functions'.
nil)
-(defvar diary-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map "\C-c\C-s" 'diary-show-all-entries)
- (define-key map "\C-c\C-q" 'quit-window)
- map)
- "Keymap for `diary-mode'.")
+(defvar-keymap diary-mode-map
+ :doc "Keymap for `diary-mode'."
+ "C-c C-s" #'diary-show-all-entries
+ "C-c C-q" #'quit-window)
(defun diary-font-lock-sexps (limit)
"Recognize sexp diary entry up to LIMIT for font-locking."