From f6195dfb584f77aa8d156cdbb21755c42bc5e98f Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Wed, 4 Nov 2009 06:15:41 +0000 Subject: [PATCH] * emacs-lisp/bytecomp.el (byte-compile-output-file-form): Handle defvaralias. * make-docfile.c (scan_lisp_file): Also look for `defvaralias'. --- lib-src/ChangeLog | 4 ++++ lib-src/make-docfile.c | 4 +++- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/bytecomp.el | 2 +- 4 files changed, 12 insertions(+), 2 deletions(-) diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog index d16500a76c..b72d928dc6 100644 --- a/lib-src/ChangeLog +++ b/lib-src/ChangeLog @@ -1,3 +1,7 @@ +2009-11-04 Dan Nicolaescu + + * make-docfile.c (scan_lisp_file): Also look for `defvaralias'. + 2009-10-15 Juanma Barranquero * .gitignore: Add echolisp.tmp. diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c index ad366bb2e0..3583f363f9 100644 --- a/lib-src/make-docfile.c +++ b/lib-src/make-docfile.c @@ -1007,7 +1007,9 @@ scan_lisp_file (filename, mode) } } - else if (! strcmp (buffer, "custom-declare-variable")) + else if (! strcmp (buffer, "custom-declare-variable") + || ! strcmp (buffer, "defvaralias") + ) { char c1 = 0, c2 = 0; type = 'V'; diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 194fdfdd91..a5e762d021 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-11-03 Dan Nicolaescu + + * emacs-lisp/bytecomp.el (byte-compile-output-file-form): Handle defvaralias. + 2009-11-04 Stefan Monnier * descr-text.el: Require help-mode rather than help-fns (bug#4861). diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 3f330703d5..e527d07029 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2077,7 +2077,7 @@ and will be removed soon. See (elisp)Backquote in the manual.")) ;; defalias calls are output directly by byte-compile-file-form-defmumble; ;; it does not pay to first build the defalias in defmumble and then parse ;; it here. - (if (and (memq (car-safe form) '(defun defmacro defvar defconst autoload + (if (and (memq (car-safe form) '(defun defmacro defvar defvaralias defconst autoload custom-declare-variable)) (stringp (nth 3 form))) (byte-compile-output-docform nil nil '("\n(" 3 ")") form nil -- 2.20.1