/[emacs]/emacs/lisp/textmodes/artist.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/artist.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by gerd, Fri Oct 26 09:50:51 2001 UTC revision 1.8 by sds, Tue Nov 27 15:52:51 2001 UTC
# Line 192  Line 192 
192    
193    
194  (eval-and-compile  (eval-and-compile
195    (condition-case ()   (condition-case ()
196        (require 'custom)       (require 'custom)
197      (error nil))     (error nil))
198    (if (and (featurep 'custom) (fboundp 'custom-declare-variable))   (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
199        nil ;; We've got what we needed       nil ;; We've got what we needed
200      ;; We have the old custom-library, hack around it!       ;; We have the old custom-library, hack around it!
201      (defmacro defgroup (&rest args)       (defmacro defgroup (&rest args)
202        nil)         nil)
203      (defmacro defface (var values doc &rest args)       (defmacro defface (var values doc &rest args)
204         (` (make-face (, var))))         `(make-face ,var))
205      (defmacro defcustom (var value doc &rest args)       (defmacro defcustom (var value doc &rest args)
206        (` (defvar (, var) (, value) (, doc))))))         `(defvar ,var ,value ,doc))))
207    
208  ;; User options  ;; User options
209  ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv  ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26