]> git.eshelyaron.com Git - emacs.git/commitdiff
Remove XEmacs compat code from checkdoc.el
authorLars Ingebrigtsen <larsi@gnus.org>
Wed, 19 Jun 2019 23:13:07 +0000 (01:13 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Thu, 20 Jun 2019 10:51:39 +0000 (12:51 +0200)
* lisp/emacs-lisp/checkdoc.el (checkdoc-minor-mode-map): Remove
XEmacs compat code.

lisp/emacs-lisp/checkdoc.el

index fa6f85c588d40987e1a4be37c881f25aaa1083c0..3e3246352a2ed099d6cc6729322d2c4eeba6153a 100644 (file)
@@ -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