# HG changeset patch # User Karoly Lorentey # Date 1143911778 0 # Node ID 9905fc171253bd63a2a0ba1745dd128073d53f2a # Parent 57e924639750608ed68a3dace3a4394772cda19e (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 diff -r 57e924639750 -r 9905fc171253 lisp/ldefs-boot.el --- a/lisp/ldefs-boot.el Sat Apr 01 16:37:26 2006 +0000 +++ b/lisp/ldefs-boot.el Sat Apr 01 17:16:18 2006 +0000 @@ -17640,7 +17640,8 @@ ;;;*** -;;;### (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 @@ \(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 @@ ;;;;;; "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 -r 57e924639750 -r 9905fc171253 lisp/mh-e/mh-e.el --- a/lisp/mh-e/mh-e.el Sat Apr 01 16:37:26 2006 +0000 +++ b/lisp/mh-e/mh-e.el Sat Apr 01 17:16:18 2006 +0000 @@ -925,6 +925,7 @@ `(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 @@ (t t)) collect keyword)))) + ;;; MH-E Customization