mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-14 11:42:29 -08:00
Code Issues Projects Releases Wiki Activity

(whitespace-version): Update to 2.8

Browse source 
Take a tip from Noah Friedman
<friedman@splode.com> and test for existence of `defcustom' and
`defgroup' using fboundp instead of assuming that these are not
present in particular flavors of emacs.
This commit is contained in:
Gerd Moellmann 1999-10-30 21:10:54 +00:00
parent e79ad8a15d
commit 07dc417520
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/whitespace.el
View file

@ -42,7 +42,7 @@
(add-hook 'find-file-hooks 'whitespace-buffer)
(add-hook 'kill-buffer-hook 'whitespace-buffer)
(defvar whitespace-version "2.6" "Version of the whitespace library.")
(defvar whitespace-version "2.8" "Version of the whitespace library.")
;; Find out what type of Emacs we are running in.
(defvar whitespace-running-emacs (if (string-match "XEmacs\\|Lucid"
emacs-version) nil t)
@ -70,17 +70,18 @@ visited by the buffers.")
(make-variable-buffer-local 'whitespace-mode-line)
(put 'whitespace-mode-line 'permanent-local nil)
;; For users of Emacs 19.x, defgroup and defcustom are not defined.
;; For flavors of Emacs which don't define `defgroup' and `defcustom'.
(eval-when-compile
(if (< (string-to-int emacs-version) 20)
(progn
(defmacro defgroup (sym memb doc &rest args)
"Null macro for defgroup in all versions of Emacs < 20.x"
t)
(defmacro defcustom (sym val doc &rest args)
"Macro to alias defcustom to defvar in all versions of Emacs < 20.x"
`(defvar ,sym ,val ,doc)))))
(if (not (fboundp 'defgroup))
(defmacro defgroup (sym memb doc &rest args)
"Null macro for defgroup in all versions of Emacs that don't define
defgroup"
t))
(if (not (fboundp 'defcustom))
(defmacro defcustom (sym val doc &rest args)
"Macro to alias defcustom to defvar in all versions of Emacs that
don't define defcustom"
`(defvar ,sym ,val ,doc))))
(defgroup whitespace nil
"Check for and fix five different types of whitespaces in source code."