diff options
| author | Peter Galbraith <galbraith@mixing.qc.dfo.ca> | 2006-02-16 02:14:40 +0000 |
|---|---|---|
| committer | Peter Galbraith <galbraith@mixing.qc.dfo.ca> | 2006-02-16 02:14:40 +0000 |
| commit | fc0f755fab9c900ebfcb549bc01d69a6ee6b611b (patch) | |
| tree | b85823cb3f97aaded9b66473c83f918ba9e8da8e /lisp/mh-e/mh-compat.el | |
| parent | e7559e307df1582c802885c5c6f80fba230bc524 (diff) | |
| download | emacs-fc0f755fab9c900ebfcb549bc01d69a6ee6b611b.tar.gz | |
mh-compat.el (mh-image-search-load-path): Compatibility code. Emacs 21 and
XEmacs don't have `image-search-load-path'.
mh-utils.el (mh-image-load-path): Don't bail out on error if the images are
already found.
Diffstat (limited to 'lisp/mh-e/mh-compat.el')
| -rw-r--r-- | lisp/mh-e/mh-compat.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/mh-e/mh-compat.el b/lisp/mh-e/mh-compat.el index 090ee51c5fc..4bc5fdf36f7 100644 --- a/lisp/mh-e/mh-compat.el +++ b/lisp/mh-e/mh-compat.el @@ -115,6 +115,12 @@ introduced in Emacs 22." `(face-background ,face ,frame) `(face-background ,face ,frame ,inherit))) +(mh-defun-compat mh-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) + ;; For XEmacs. (defalias 'mh-line-beginning-position (if (fboundp 'line-beginning-position) @@ -131,7 +137,7 @@ introduced in Emacs 22." (mh-defun-compat mh-mail-abbrev-make-syntax-table mail-abbrev-make-syntax-table () "Emacs 21 and XEmacs don't have `mail-abbrev-make-syntax-table'. -This function does nothing on those systems." +This function returns nil on those systems." nil) (mh-defun-compat mh-match-string-no-properties |