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

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

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

revision 1.98.4.2 by miles, Mon Jun 28 07:29:45 2004 UTC revision 1.98.4.3 by miles, Thu Sep 9 09:36:32 2004 UTC
# Line 86  or macro definition or a defcustom)." Line 86  or macro definition or a defcustom)."
86    
87       ;; For special function-like operators, use the `autoload' function.       ;; For special function-like operators, use the `autoload' function.
88       ((memq car '(defun define-skeleton defmacro define-derived-mode       ((memq car '(defun define-skeleton defmacro define-derived-mode
89                       define-compilation-mode
90                     define-generic-mode easy-mmode-define-minor-mode                     define-generic-mode easy-mmode-define-minor-mode
91                     easy-mmode-define-global-mode                     easy-mmode-define-global-mode
92                     define-minor-mode defun* defmacro*))                     define-minor-mode defun* defmacro*))
# Line 94  or macro definition or a defcustom)." Line 95  or macro definition or a defcustom)."
95               (args (case car               (args (case car
96                      ((defun defmacro defun* defmacro*) (nth 2 form))                      ((defun defmacro defun* defmacro*) (nth 2 form))
97                      ((define-skeleton) '(&optional str arg))                      ((define-skeleton) '(&optional str arg))
98                      ((define-generic-mode define-derived-mode) nil)                      ((define-generic-mode define-derived-mode
99                           define-compilation-mode) nil)
100                      (t)))                      (t)))
101               (body (nthcdr (get car 'doc-string-elt) form))               (body (nthcdr (get car 'doc-string-elt) form))
102               (doc (if (stringp (car body)) (pop body))))               (doc (if (stringp (car body)) (pop body))))

Legend:
Removed from v.1.98.4.2  
changed lines
  Added in v.1.98.4.3

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