comparison lisp/textmodes/artist.el @ 87384:20bb7aaa7b12

* 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.
author Dan Nicolaescu <dann@ics.uci.edu>
date Tue, 25 Dec 2007 19:21:38 +0000
parents e50a2e215441
children 107ccd98fa12 56a72e2bd635
comparison
equal deleted inserted replaced
87383:e8864ce8543f 87384:20bb7aaa7b12
198 198
199 (defconst artist-version "1.2.6") 199 (defconst artist-version "1.2.6")
200 (defconst artist-maintainer-address "tab@lysator.liu.se") 200 (defconst artist-maintainer-address "tab@lysator.liu.se")
201 201
202 (defvar x-pointer-crosshair) 202 (defvar x-pointer-crosshair)
203
204 (eval-and-compile
205 (condition-case ()
206 (require 'custom)
207 (error nil))
208 (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
209 nil ;; We've got what we needed
210 ;; We have the old custom-library, hack around it!
211 (defmacro defgroup (&rest args)
212 nil)
213 (defmacro defface (var values doc &rest args)
214 `(make-face ,var))
215 (defmacro defcustom (var value doc &rest args)
216 `(defvar ,var ,value ,doc))))
217 203
218 ;; User options 204 ;; User options
219 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv 205 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
220 206
221 (defgroup artist nil 207 (defgroup artist nil