aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2019-06-20 01:13:07 +0200
committerLars Ingebrigtsen2019-06-20 12:51:39 +0200
commit4e0baad4104174d729dec308b04494b5cf66ca47 (patch)
treeeae9b95fcbb1e518857a360e325ba7cee4cecf02
parent717a99dacffaa8981d907d23e0fb0af7a127149f (diff)
downloademacs-4e0baad4104174d729dec308b04494b5cf66ca47.tar.gz
emacs-4e0baad4104174d729dec308b04494b5cf66ca47.zip
Remove XEmacs compat code from checkdoc.el
* lisp/emacs-lisp/checkdoc.el (checkdoc-minor-mode-map): Remove XEmacs compat code.
-rw-r--r--lisp/emacs-lisp/checkdoc.el10
1 files 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
1174 ;; Override some bindings 1174 ;; Override some bindings
1175 (define-key map "\C-\M-x" 'checkdoc-eval-defun) 1175 (define-key map "\C-\M-x" 'checkdoc-eval-defun)
1176 (define-key map "\C-x`" 'checkdoc-continue) 1176 (define-key map "\C-x`" 'checkdoc-continue)
1177 (if (not (featurep 'xemacs)) 1177 (define-key map [menu-bar emacs-lisp eval-buffer]
1178 (define-key map [menu-bar emacs-lisp eval-buffer] 1178 'checkdoc-eval-current-buffer)
1179 'checkdoc-eval-current-buffer))
1180 ;; Add some new bindings under C-c ? 1179 ;; Add some new bindings under C-c ?
1181 (define-key pmap "x" 'checkdoc-defun) 1180 (define-key pmap "x" 'checkdoc-defun)
1182 (define-key pmap "X" 'checkdoc-ispell-defun) 1181 (define-key pmap "X" 'checkdoc-ispell-defun)
@@ -1229,10 +1228,7 @@ TEXT, START, END and UNFIXABLE conform to
1229 ["Check Defun" checkdoc-defun t] 1228 ["Check Defun" checkdoc-defun t]
1230 ["Check and Spell Defun" checkdoc-ispell-defun t] 1229 ["Check and Spell Defun" checkdoc-ispell-defun t]
1231 ["Check and Evaluate Defun" checkdoc-eval-defun t] 1230 ["Check and Evaluate Defun" checkdoc-eval-defun t]
1232 ["Check and Evaluate Buffer" checkdoc-eval-current-buffer t] 1231 ["Check and Evaluate Buffer" checkdoc-eval-current-buffer t]))
1233 ))
1234;; XEmacs requires some weird stuff to add this menu in a minor mode.
1235;; What is it?
1236 1232
1237;;;###autoload 1233;;;###autoload
1238(define-minor-mode checkdoc-minor-mode 1234(define-minor-mode checkdoc-minor-mode