+2007-12-25 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * calculator.el:
+ * dframe.el:
+ * iswitchb.el:
+ * whitespace.el:
+ * winner.el:
+ * emacs-lisp/checkdoc.el:
+ * mail/feedmail.el:
+ * net/quickurl.el:
+ * obsolete/fast-lock.el:
+ * play/5x5.el:
+ * progmodes/delphi.el:
+ * progmodes/idlw-shell.el:
+ * progmodes/idlwave.el:
+ * textmodes/artist.el:
+ * textmodes/ispell.el:
+ * textmodes/texinfmt.el:
+ * textmodes/texinfo.el: Remove obsolete definitions of backward
+ compatibility macros for defcustom, defgroup, defface, when,
+ unless, with-current-buffer and with-temp-message.
+
2007-12-24 Nick Roberts <nickrob@snap.net.nz>
* progmodes/verilog-mode.el: Fit parts to 80 columns.
;; I hate history.
(eval-when-compile (require 'cl))
-(eval-and-compile
- (if (fboundp 'defgroup) nil
- (defmacro defgroup (&rest forms) nil)
- (defmacro defcustom (s v d &rest r) (list 'defvar s v d))))
;;;=====================================================================
;;; Customization:
(defvar x-pointer-top-left-arrow)
;;; Code:
-
-;; From custom web page for compatibility between versions of custom
-;; with help from ptype@dera.gov.uk (Proto Type)
-(eval-and-compile
- (condition-case ()
- (require 'custom)
- (error nil))
- (if (and (featurep 'custom) (fboundp 'custom-declare-variable)
- ;; Some XEmacsen w/ custom don't have :set keyword.
- ;; This protects them against custom.
- (fboundp 'custom-initialize-set))
- nil ;; We've got what we needed
- ;; We have the old custom-library, hack around it!
- (if (boundp 'defgroup)
- nil
- (defmacro defgroup (&rest args)
- nil))
- (if (boundp 'defface)
- nil
- (defmacro defface (var values doc &rest args)
- ;; To make colors for your faces you need to set your .Xdefaults
- ;; or set them up ahead of time in your .emacs file.
- `(make-face ,var)
- ))
- (if (boundp 'defcustom)
- nil
- (defmacro defcustom (var value doc &rest args)
- `(defvar ,var ,value ,doc)))))
-
\f
;;; Compatibility functions
;;
(defvar checkdoc-version "0.6.1"
"Release version of checkdoc you are currently running.")
-;; From custom web page for compatibility between versions of custom:
-(eval-and-compile
- (condition-case ()
- (require 'custom)
- (error nil))
- (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
- nil ;; We've got what we needed
- ;; We have the old custom-library, hack around it!
- (defmacro defgroup (&rest args)
- nil)
- (defmacro custom-add-option (&rest args)
- nil)
- (defmacro defcustom (var value doc &rest args)
- `(defvar ,var ,value ,doc))))
-
(defvar compilation-error-regexp-alist)
(defvar compilation-mode-font-lock-keywords)
(require 'font-lock)
-;; Set up the custom library.
-;; taken from http://www.dina.kvl.dk/~abraham/custom/
-(eval-and-compile
- (condition-case ()
- (require 'custom)
- (error nil))
- (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
- nil ;; We've got what we needed
- ;; We have the old custom-library, hack around it!
- (defmacro defgroup (&rest args)
- nil)
- (defmacro defcustom (var value doc &rest args)
- `(defvar ,var ,value ,doc))))
-
;;; User Variables
;;
;; These are some things you might want to change.
(defconst feedmail-patch-level "8")
-
-;; from <URL:http://www.dina.kvl.dk/~abraham/custom/>:
-;; If you write software that must work without the new custom, you
-;; can use this hack stolen from w3-cus.el:
-(eval-and-compile
- (condition-case ()
- (require 'custom)
- (error nil))
- (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
- nil ;; We've got what we needed
- ;; We have the old custom-library, hack around it!
- (defmacro defgroup (&rest args)
- nil)
- (defmacro defcustom (var value doc &rest args)
- `(defvar ,var ,value ,doc))))
-
(eval-when-compile (require 'smtpmail))
(autoload 'mail-do-fcc "sendmail")
(require 'pp)
(require 'browse-url)
-;; Attempt to handle older/other emacs.
-(eval-and-compile
- ;; If customize isn't available just use defvar instead.
- (unless (fboundp 'defgroup)
- (defmacro defgroup (&rest rest) nil)
- (defmacro defcustom (symbol init docstring &rest rest)
- `(defvar ,symbol ,init ,docstring))))
-
;; Customize options.
(defgroup quickurl nil
(let ((faces ,face))
(while (unless (memq (car faces) fast-lock-save-faces)
(setq faces (cdr faces))))
- faces))))
- ;;
- ;; We use this for compatibility with a future Emacs.
- (or (fboundp 'with-temp-message)
- (defmacro with-temp-message (message &rest body)
- `(let ((temp-message ,message) current-message)
- (unwind-protect
- (progn
- (when temp-message
- (setq current-message (current-message))
- (message "%s" temp-message))
- ,@body)
- (when temp-message
- (message "%s" current-message))))))
- ;;
- ;; We use this for compatibility with a future Emacs.
- (or (fboundp 'defcustom)
- (defmacro defcustom (symbol value doc &rest args)
- `(defvar ,symbol ,value ,doc))))
+ faces)))))
;;(defun fast-lock-submit-bug-report ()
;; "Submit via mail a bug report on fast-lock.el."
(eval-when-compile
(require 'cl))
-;; If customize isn't available just use defvar instead.
-(eval-and-compile
- (unless (fboundp 'defgroup)
- (defmacro defgroup (&rest rest) nil)
- (defmacro defcustom (symbol init docstring &rest rest)
- `(defvar ,symbol ,init ,docstring))))
-
;; Customize options.
(defgroup 5x5 nil
(provide 'delphi)
-(eval-and-compile
- ;; Allow execution on pre Emacs 20 versions.
- (or (fboundp 'when)
- (defmacro when (test &rest body)
- `(if ,test (progn ,@body))))
- (or (fboundp 'unless)
- (defmacro unless (test &rest body)
- `(if (not ,test) (progn ,@body))))
- (or (fboundp 'defgroup)
- (defmacro defgroup (group val docs &rest group-attributes)
- `(defvar ,group ,val ,docs)))
- (or (fboundp 'defcustom)
- (defmacro defcustom (val-name val docs &rest custom-attributes)
- `(defvar ,val-name ,val ,docs)))
- (or (fboundp 'cadr)
- (defmacro cadr (list) `(car (cdr ,list))))
- (or (fboundp 'cddr)
- (defmacro cddr (list) `(cdr (cdr ,list))))
- (or (fboundp 'with-current-buffer)
- (defmacro with-current-buffer (buf &rest forms)
- `(save-excursion (set-buffer ,buf) ,@forms)))
- )
-
(defgroup delphi nil
"Major mode for editing Delphi source in Emacs."
:version "21.1"
(eval-when-compile (require 'cl))
(defvar idlwave-shell-have-new-custom nil)
-(eval-and-compile
- ;; Kludge to allow `defcustom' for Emacs 19.
- (condition-case () (require 'custom) (error nil))
- (if (and (featurep 'custom)
- (fboundp 'custom-declare-variable)
- (fboundp 'defface))
- ;; We've got what we needed
- (setq idlwave-shell-have-new-custom t)
- ;; We have the old or no custom-library, hack around it!
- (defmacro defgroup (&rest args) nil)
- (defmacro defcustom (var value doc &rest args)
- `(defvar ,var ,value ,doc))))
;;; Customizations: idlwave-shell group
(require 'timer)
(error nil)))
-(eval-and-compile
- ;; Kludge to allow `defcustom' for Emacs 19.
- (condition-case () (require 'custom) (error nil))
- (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
- nil ;; We've got what we needed
- ;; We have the old or no custom-library, hack around it!
- (defmacro defgroup (&rest args) nil)
- (defmacro defcustom (var value doc &rest args)
- `(defvar ,var ,value ,doc))))
-
(declare-function idlwave-shell-get-path-info "idlw-shell")
(declare-function idlwave-shell-temp-file "idlw-shell")
(declare-function idlwave-shell-is-running "idlw-shell")
(defvar x-pointer-crosshair)
-(eval-and-compile
- (condition-case ()
- (require 'custom)
- (error nil))
- (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
- nil ;; We've got what we needed
- ;; We have the old custom-library, hack around it!
- (defmacro defgroup (&rest args)
- nil)
- (defmacro defface (var values doc &rest args)
- `(make-face ,var))
- (defmacro defcustom (var value doc &rest args)
- `(defvar ,var ,value ,doc))))
-
;; User options
;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
(defvar mail-yank-prefix)
-;;; Custom.el macros require recompiling this when they are not present.
-;;; Add in backward compatible custom support.
-(eval-when-compile
- (if (not (fboundp 'defcustom))
- (defmacro defcustom (symbol value doc &rest args)
- "Empty replacement for defcustom when not supplied."
- `(defvar ,symbol ,value ,doc))))
-
-(eval-when-compile
- (if (not (fboundp 'defgroup))
- (defmacro defgroup (&rest args)
- "Empty replacement for defgroup when not supplied.")))
-
(defgroup ispell nil
"User variables for Emacs ispell interface."
:group 'applications)
;;; Emacs lisp functions to convert Texinfo files to Info files.
-(or (fboundp 'defgroup)
- (defmacro defgroup (&rest ignore) nil))
-
-(or (fboundp 'defcustom)
- (defmacro defcustom (var value doc &rest ignore)
- `(defvar ,var ,value ,doc)))
-
(defvar texinfmt-version "2.42 of 7 Jul 2006")
(defun texinfmt-version (&optional here)
;;; Code:
-(or (fboundp 'defgroup)
- (defmacro defgroup (&rest ignore) nil))
-
-(or (fboundp 'defcustom)
- (defmacro defcustom (var value doc &rest ignore)
- `(defvar ,var ,value ,doc)))
-
(eval-when-compile (require 'tex-mode) (require 'cl))
(defvar outline-heading-alist)
"The variable to store the extent to highlight.")
(make-variable-buffer-local 'whitespace-highlighted-space)
-;; For flavors of Emacs which don't define `defgroup' and `defcustom'.
-(eval-when-compile
- (if (not (fboundp 'defgroup))
- (defmacro defgroup (sym memb doc &rest args)
- "Null macro for `defgroup' in all versions of Emacs that don't define it."
- 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 it."
- `(defvar ,sym ,val ,doc))))
-
(defalias 'whitespace-make-overlay
(if (featurep 'xemacs) 'make-extent 'make-overlay))
(defalias 'whitespace-overlay-put
(require 'ring)
-(unless (fboundp 'defgroup)
- (defmacro defgroup (&rest rest)))
-
(defgroup winner nil
"Restoring window configurations."
:group 'windows)
-(unless (fboundp 'defcustom)
- (defmacro defcustom (symbol &optional initvalue docs &rest rest)
- (list 'defvar symbol initvalue docs)))
-
;;;###autoload
(defcustom winner-mode nil
"Toggle Winner mode.
HCoop / bpt / emacs.git / commitdiff