* cus-dep.el (defcustom-mh, defgroup-mh, defface-mh): Add compat aliases

as a hack workaround.

Fixes: debbugs:14384

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ac5a5c34e4408ecf468df0f8b17ee5c1ac79f2d0..bd5a20ffe1338d0d10a3c7561640a4ae8a455104 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-13  Glenn Morris  <rgm@gnu.org>
+
+       * cus-dep.el (defcustom-mh, defgroup-mh, defface-mh):
+       Add compat aliases as a hack workaround.  (Bug#14384)
+
 2013-05-13  Leo Liu  <sdl.web@gmail.com>
 
        * progmodes/octave.el (octave-indent-comment): Fix indentation for

diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el
index 79698cc4b4ac1f404ea56559d22fa97991b036fc..12a3211a0b007f4daf2187c64c94b949c0cfab54 100644 (file)
--- a/lisp/cus-dep.el
+++ b/lisp/cus-dep.el
@@ -38,6 +38,18 @@ ldefs-boot\\|cus-load\\|finder-inf\\|esh-groups\\|subdirs\\)\\.el$\\)"
 
 (require 'autoload)
 
+;; Hack workaround for bug#14384.
+;; Define defcustom-mh as an alias for defcustom, etc.
+;; Only do this in batch mode to avoid messing up a normal Emacs session.
+;; Alternative would be to load mh-e when making cus-load.
+;; (Would be better to split just the necessary parts of mh-e into a
+;; separate file and only load that.)
+(when (and noninteractive)
+  (mapc (lambda (e) (let ((sym (intern (format "%s-mh" e))))
+                     (or (fboundp sym)
+                         (defalias sym e))))
+       '(defcustom defface defgroup)))
+
 (defun custom-make-dependencies ()
   "Batch function to extract custom dependencies from .el files.
 Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
@@ -82,6 +94,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
                       (let ((expr (read (current-buffer))))
                         (condition-case nil
                             (let ((custom-dont-initialize t))
+                              ;; Why do we need to eval just for the name?
                               (eval expr)
                               (put (nth 1 expr) 'custom-where name))
                           (error nil))))