diff options
| -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 | |||
| 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 |