From 9fc9c8c639226ec263df1f40a5801909dc52f590 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 25 Jun 2014 23:43:39 -0700 Subject: Remove some function declarations, no longer needed or correct * lisp/emacs-lisp/cl-macs.el (help-add-fundoc-usage): * lisp/gnus/mm-util.el (help-function-arglist): Remove outdated declarations. --- lisp/ChangeLog | 3 +++ lisp/emacs-lisp/cl-macs.el | 2 -- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/mm-util.el | 2 -- 4 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5a716312f0e..34d057c10f1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2014-06-26 Glenn Morris + * emacs-lisp/cl-macs.el (help-add-fundoc-usage): + Remove outdated declaration. + * emacs-lisp/authors.el (authors-valid-file-names) (authors-renamed-files-alist): Additions. diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 5640b1796c7..e45efa328ee 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -376,8 +376,6 @@ its argument list allows full Common Lisp conventions." (if (car res) `(progn ,(car res) ,form) form)) `(function ,func))) -(declare-function help-add-fundoc-usage "help-fns" (docstring arglist)) - (defun cl--make-usage-var (x) "X can be a var or a (destructuring) lambda-list." (cond diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4ad3a6de63e..993bbbb2475 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2014-06-26 Glenn Morris + + * mm-util.el (help-function-arglist): Remove outdated declaration. + 2014-06-22 Andreas Schwab * html2text.el (html2text-get-attr): Rewrite to handle spaces in quoted diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index 38ee8a563e5..6433ec96938 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el @@ -1378,8 +1378,6 @@ If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'." (write-region start end filename append visit lockname))) (autoload 'gmm-write-region "gmm-utils") -(declare-function help-function-arglist "help-fns" - (def &optional preserve-names)) ;; It is not a MIME function, but some MIME functions use it. (if (and (fboundp 'make-temp-file) -- cgit v1.2.3