diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-20 01:13:07 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-20 12:51:39 +0200 |
| commit | 4e0baad4104174d729dec308b04494b5cf66ca47 (patch) | |
| tree | eae9b95fcbb1e518857a360e325ba7cee4cecf02 /lisp/emacs-lisp | |
| parent | 717a99dacffaa8981d907d23e0fb0af7a127149f (diff) | |
| download | emacs-4e0baad4104174d729dec308b04494b5cf66ca47.tar.gz emacs-4e0baad4104174d729dec308b04494b5cf66ca47.tar.bz2 emacs-4e0baad4104174d729dec308b04494b5cf66ca47.zip | |
Remove XEmacs compat code from checkdoc.el
* lisp/emacs-lisp/checkdoc.el (checkdoc-minor-mode-map): Remove
XEmacs compat code.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 10 |
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 ;; 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 |