Mercurial > emacs
diff lisp/emacs-lisp/checkdoc.el @ 90203:187d6a1f84f7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-71
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 485-492)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 92-94)
- Merge from emacs--cvs-trunk--0
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 22 Jul 2005 08:27:27 +0000 |
parents | fbb2bea03df9 12443a1e01ee |
children | 2d92f5c9d6ae |
line wrap: on
line diff
--- a/lisp/emacs-lisp/checkdoc.el Tue Jul 19 02:58:20 2005 +0000 +++ b/lisp/emacs-lisp/checkdoc.el Fri Jul 22 08:27:27 2005 +0000 @@ -430,32 +430,20 @@ ;;; Compatibility ;; -(if (string-match "X[Ee]macs" emacs-version) - (progn - (defalias 'checkdoc-make-overlay 'make-extent) - (defalias 'checkdoc-overlay-put 'set-extent-property) - (defalias 'checkdoc-delete-overlay 'delete-extent) - (defalias 'checkdoc-overlay-start 'extent-start) - (defalias 'checkdoc-overlay-end 'extent-end) - (defalias 'checkdoc-mode-line-update 'redraw-modeline) - (defalias 'checkdoc-call-eval-buffer 'eval-buffer) - ) - (defalias 'checkdoc-make-overlay 'make-overlay) - (defalias 'checkdoc-overlay-put 'overlay-put) - (defalias 'checkdoc-delete-overlay 'delete-overlay) - (defalias 'checkdoc-overlay-start 'overlay-start) - (defalias 'checkdoc-overlay-end 'overlay-end) - (defalias 'checkdoc-mode-line-update 'force-mode-line-update) - (defalias 'checkdoc-call-eval-buffer 'eval-current-buffer) - ) - -;; Emacs 20s have MULE characters which don't equate to numbers. -(if (fboundp 'char=) - (defalias 'checkdoc-char= 'char=) - (defalias 'checkdoc-char= '=)) - -;; Read events, not characters -(defalias 'checkdoc-read-event 'read-event) +(defalias 'checkdoc-make-overlay + (if (featurep 'xemacs) 'make-extent 'make-overlay)) +(defalias 'checkdoc-overlay-put + (if (featurep 'xemacs) 'set-extent-property 'overlay-put)) +(defalias 'checkdoc-delete-overlay + (if (featurep 'xemacs) 'delete-extent 'delete-overlay)) +(defalias 'checkdoc-overlay-start + (if (featurep 'xemacs) 'extent-start 'overlay-start)) +(defalias 'checkdoc-overlay-end + (if (featurep 'xemacs) 'extent-end 'overlay-end)) +(defalias 'checkdoc-mode-line-update + (if (featurep 'xemacs) 'redraw-modeline 'force-mode-line-update)) +(defalias 'checkdoc-char= + (if (featurep 'xemacs) 'char= '=)) ;;; User level commands ;; @@ -628,7 +616,7 @@ (goto-char (checkdoc-error-start (car (car err-list)))) (if (not (pos-visible-in-window-p)) (recenter (- (window-height) 2))) - (setq c (checkdoc-read-event))) + (setq c (read-event))) (if (not (integerp c)) (setq c ??)) (cond ;; Exit condition @@ -844,7 +832,7 @@ doesn't work is just not useful. Comments, doc strings, and rogue spacing are all verified." (interactive) - (checkdoc-call-eval-buffer nil) + (eval-buffer nil) (checkdoc-current-buffer t)) ;;;###autoload