From 4e0baad4104174d729dec308b04494b5cf66ca47 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 20 Jun 2019 01:13:07 +0200 Subject: [PATCH] Remove XEmacs compat code from checkdoc.el * lisp/emacs-lisp/checkdoc.el (checkdoc-minor-mode-map): Remove XEmacs compat code. --- lisp/emacs-lisp/checkdoc.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index fa6f85c588d..3e3246352a2 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -1174,9 +1174,8 @@ TEXT, START, END and UNFIXABLE conform to ;; Override some bindings (define-key map "\C-\M-x" 'checkdoc-eval-defun) (define-key map "\C-x`" 'checkdoc-continue) - (if (not (featurep 'xemacs)) - (define-key map [menu-bar emacs-lisp eval-buffer] - 'checkdoc-eval-current-buffer)) + (define-key map [menu-bar emacs-lisp eval-buffer] + 'checkdoc-eval-current-buffer) ;; Add some new bindings under C-c ? (define-key pmap "x" 'checkdoc-defun) (define-key pmap "X" 'checkdoc-ispell-defun) @@ -1229,10 +1228,7 @@ TEXT, START, END and UNFIXABLE conform to ["Check Defun" checkdoc-defun t] ["Check and Spell Defun" checkdoc-ispell-defun t] ["Check and Evaluate Defun" checkdoc-eval-defun t] - ["Check and Evaluate Buffer" checkdoc-eval-current-buffer t] - )) -;; XEmacs requires some weird stuff to add this menu in a minor mode. -;; What is it? + ["Check and Evaluate Buffer" checkdoc-eval-current-buffer t])) ;;;###autoload (define-minor-mode checkdoc-minor-mode -- 2.39.2