Mercurial > hg > xemacs-beta

comparison lisp/autoload.el @ 4256:1dabc28c10d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-11-08 07:12:39 by michaels] 2007-10-31 Mike Sperber <mike@xemacs.org> * autoload.el (make-autoload): Add `defclass' and `defmethod' as defmacro-like operators. This is need to enable compilation of packages that depend on eieio.
author michaels
date Thu, 08 Nov 2007 07:12:40 +0000
parents 38d1f63a6b1f
children cee827542370
comparison
equal deleted inserted replaced
4255:4a6c7a225300 4256:1dabc28c10d0
247 247
248 ;; For special function-like operators, use the `autoload' function. 248 ;; For special function-like operators, use the `autoload' function.
249 ((memq car '(defun define-skeleton defmacro define-derived-mode 249 ((memq car '(defun define-skeleton defmacro define-derived-mode
250 define-generic-mode easy-mmode-define-minor-mode 250 define-generic-mode easy-mmode-define-minor-mode
251 easy-mmode-define-global-mode 251 easy-mmode-define-global-mode
252 define-minor-mode defun* defmacro*)) 252 define-minor-mode defun* defmacro*
253 defclass defmethod)) ; from the EIEIO package
253 (let* ((macrop (memq car '(defmacro defmacro*))) 254 (let* ((macrop (memq car '(defmacro defmacro*)))
254 (name (nth 1 form)) 255 (name (nth 1 form))
255 (body (nthcdr (get car 'doc-string-elt) form)) 256 (body (nthcdr (get car 'doc-string-elt) form))
256 (doc (if (stringp (car body)) (pop body)))) 257 (doc (if (stringp (car body)) (pop body))))
257 ;; `define-generic-mode' quotes the name, so take care of that 258 ;; `define-generic-mode' quotes the name, so take care of that
797 (put 'define-skeleton 'doc-string-elt 2) 798 (put 'define-skeleton 'doc-string-elt 2)
798 (put 'define-derived-mode 'doc-string-elt 4) 799 (put 'define-derived-mode 'doc-string-elt 4)
799 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) 800 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2)
800 (put 'define-minor-mode 'doc-string-elt 2) 801 (put 'define-minor-mode 'doc-string-elt 2)
801 (put 'define-generic-mode 'doc-string-elt 7) 802 (put 'define-generic-mode 'doc-string-elt 7)
803 (put 'defclass 'doc-string-elt 4)
804 (put 'defmethod 'doc-string-elt 3)
802 ;; defin-global-mode has no explicit docstring. 805 ;; defin-global-mode has no explicit docstring.
803 (put 'easy-mmode-define-global-mode 'doc-string-elt 1000) 806 (put 'easy-mmode-define-global-mode 'doc-string-elt 1000)
804 807
805 (defun autoload-trim-file-name (file) 808 (defun autoload-trim-file-name (file)
806 "Returns relative pathname of FILE including the last directory. 809 "Returns relative pathname of FILE including the last directory.