From 07dc417520f8a433fbe32bfb8ec753d8a3302819 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Sat, 30 Oct 1999 21:10:54 +0000 Subject: [PATCH] (whitespace-version): Update to 2.8 Take a tip from Noah Friedman and test for existence of `defcustom' and `defgroup' using fboundp instead of assuming that these are not present in particular flavors of emacs. --- lisp/whitespace.el | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/lisp/whitespace.el b/lisp/whitespace.el index 84e67eaeda2..b003798e65a 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el @@ -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." -- 2.39.5