+2006-05-18 Reiner Steib <Reiner.Steib@gmx.de>
+
+ * gmm-utils.el (wid-edit): Require.
+ (defun-gmm): Renamed from `gmm-defun-compat'.
+ (gmm-image-search-load-path): Use it.
+ (gmm-image-load-path-for-library): Use it. Sync with `mh-compat.el'.
+
2006-05-17 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-sum.el (gnus-summary-save-article-coding-system): New
;;; Code:
+(require 'wid-edit)
+
(defgroup gmm nil
"Utility functions for Gnus, Message and MML"
:prefix "gmm-"
icon-list))
tool-bar-map))
-;; WARNING: The following is subject to change. Don't rely on it yet.
-
-;; From MH-E without modifications:
-
-(defmacro gmm-defun-compat (name function arg-list &rest body)
+(defmacro defun-gmm (name function arg-list &rest body)
"Create function NAME.
If FUNCTION exists, then NAME becomes an alias for FUNCTION.
Otherwise, create function NAME with ARG-LIST and BODY."
`(defalias ',name ',function)
`(defun ,name ,arg-list ,@body))))
-(gmm-defun-compat gmm-image-search-load-path
+(defun-gmm gmm-image-search-load-path
image-search-load-path (file &optional path)
"Emacs 21 and XEmacs don't have `image-search-load-path'.
This function returns nil on those systems."
nil)
-;; From MH-E with modifications:
-
-;; Don't use `gmm-defun-compat' until API changes in
-;; `image-load-path-for-library' in Emacs CVS are completed.
+;; Cf. `mh-image-load-path-for-library' in `mh-compat.el'.
-(defun gmm-image-load-path-for-library (library image &optional path no-error)
- "Return a suitable search path for images relative to LIBRARY.
+(defun-gmm gmm-image-load-path-for-library
+ image-load-path-for-library (library image &optional path no-error)
+ "Return a suitable search path for images used by LIBRARY.
-First it searches for IMAGE in `image-load-path' (excluding
+It searches for IMAGE in `image-load-path' (excluding
\"`data-directory'/images\") and `load-path', followed by a path
suitable for LIBRARY, which includes \"../../etc/images\" and
\"../etc/images\" relative to the library file itself, and then