/[emacs]/emacs/lisp/emacs-lisp/checkdoc.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/checkdoc.el

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

revision 1.23 by rms, Sat Nov 17 22:51:11 2001 UTC revision 1.24 by sds, Tue Nov 27 15:52:52 2001 UTC
# Line 176  Line 176 
176    
177  ;; From custom web page for compatibility between versions of custom:  ;; From custom web page for compatibility between versions of custom:
178  (eval-and-compile  (eval-and-compile
179    (condition-case ()   (condition-case ()
180        (require 'custom)       (require 'custom)
181      (error nil))     (error nil))
182    (if (and (featurep 'custom) (fboundp 'custom-declare-variable))   (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
183        nil ;; We've got what we needed       nil ;; We've got what we needed
184      ;; We have the old custom-library, hack around it!       ;; We have the old custom-library, hack around it!
185      (defmacro defgroup (&rest args)       (defmacro defgroup (&rest args)
186        nil)         nil)
187      (defmacro custom-add-option (&rest args)       (defmacro custom-add-option (&rest args)
188        nil)         nil)
189      (defmacro defcustom (var value doc &rest args)       (defmacro defcustom (var value doc &rest args)
190        (` (defvar (, var) (, value) (, doc))))))         `(defvar ,var ,value ,doc))))
191    
192  (defcustom checkdoc-autofix-flag 'semiautomatic  (defcustom checkdoc-autofix-flag 'semiautomatic
193    "*Non-nil means attempt auto-fixing of doc strings.    "*Non-nil means attempt auto-fixing of doc strings.

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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