From 2518de51d20e848711c712f5030e8c207a4e2840 Mon Sep 17 00:00:00 2001 From: Karoly Lorentey Date: Sat, 1 Apr 2006 17:16:18 +0000 Subject: [PATCH] (Attempt to) fix bootstrap error. * lisp/mh-e/mh-e.el (mh-strip-package-version): Add autoload cookie. * lisp/ldefs-boot.el: Update. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-546 --- lisp/ldefs-boot.el | 12 ++++++++++-- lisp/mh-e/mh-e.el | 2 ++ 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index eaf332de6e2..402278489bf 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -17640,7 +17640,8 @@ delete the draft message. ;;;*** -;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (17454 30995)) +;;;### (autoloads (mh-strip-package-version mh-version) "mh-e" "mh-e/mh-e.el" +;;;;;; (17454 45382)) ;;; Generated autoloads from mh-e/mh-e.el (put (quote mh-progs) (quote risky-local-variable) t) @@ -17654,6 +17655,13 @@ Display version information about MH-E and the MH mail handling system. \(fn)" t nil) +(autoload (quote mh-strip-package-version) "mh-e" "\ +Strip :package-version keyword and its value from ARGS. +In Emacs versions that support the :package-version keyword, +ARGS is returned unchanged. + +\(fn ARGS)" nil nil) + ;;;*** ;;;### (autoloads (mh-folder-mode mh-nmail mh-rmail) "mh-folder" @@ -30577,7 +30585,7 @@ Zone-mode does two things: ;;;;;; "url/url-nfs.el" "url/url-proxy.el" "url/url-vars.el" "url/vc-dav.el" ;;;;;; "vc-hooks.el" "vcursor.el" "version.el" "vms-patch.el" "vmsproc.el" ;;;;;; "vt-control.el" "vt100-led.el" "w32-fns.el" "w32-vars.el" -;;;;;; "widget.el" "window.el" "x-dnd.el") (17454 31067 173423)) +;;;;;; "widget.el" "window.el" "x-dnd.el") (17454 45486 164469)) ;;;*** diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index ce2db4fb66e..1ed8a6d7176 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el @@ -925,6 +925,7 @@ keyword, introduced in Emacs 22." `(defface ,face ,spec ,doc ,@(mh-strip-package-version args))) (put 'mh-defface 'lisp-indent-function 'defun) +;;;###autoload (defun mh-strip-package-version (args) "Strip :package-version keyword and its value from ARGS. In Emacs versions that support the :package-version keyword, @@ -938,6 +939,7 @@ ARGS is returned unchanged." (t t)) collect keyword)))) + ;;; MH-E Customization -- 2.39.5