Commit 7895927f authored by Bill Wohler's avatar Bill Wohler

* mh-compat.el (mh-window-full-height-p): Add compatibility function

for XEmacs.
* mh-show.el (mh-show-msg): Use it, and avoid compiler warning on
XEmacs.
parent 24f75b10
2011-07-04 Bill Wohler <wohler@newt.com>
* mh-compat.el (mh-window-full-height-p): Add compatibility
function for XEmacs.
* mh-show.el (mh-show-msg): Use it, and avoid compiler warning on
XEmacs.
* mh-letter.el (mh-letter-mode-map, mh-letter-complete)
(mh-complete-word): Remove FIXME comments since these functions
are still needed in other Emacsen. However, they can probably
......@@ -9,8 +14,9 @@
2011-07-03 Bill Wohler <wohler@newt.com>
* mh-compat.el (mh-test-completion): Add compatibility function
for systems without test-completion.
* mh-alias.el (mh-alias-letter-expand-alias): Use it
for XEmacs.
* mh-alias.el (mh-alias-letter-expand-alias): Use it, and avoid
compiler warning on XEmacs.
* mh-utils.el:
* mh-mime.el: Shush XEmacs compiler in mh-do-in-xemacs block.
......
......@@ -122,6 +122,16 @@ introduced in Emacs 22."
"XEmacs does not have `font-lock-add-keywords'.
This function returns nil on that system.")
(defun-mh mh-window-full-height-p
window-full-height-p (&optional WINDOW)
"Return non-nil if WINDOW is not the result of a vertical split.
This function is defined in XEmacs as it lacks
`window-full-height-p'. The values of the functions
`window-height' and `frame-height' are compared instead. The
argument WINDOW is ignored."
(= (1+ (window-height))
(frame-height)))
(defun-mh mh-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.
......@@ -262,9 +272,9 @@ The arguments FIXEDCASE, SUBEXP, and START, used by
(defun-mh mh-test-completion
test-completion (string collection &optional predicate)
"XEmacs does not have `test-completion'.
This function returns nil on that system."
nil)
"Return non-nil if STRING is a valid completion.
XEmacs does not have `test-completion'. This function returns nil
on that system." nil)
;; Copy of constant from url-util.el in Emacs 22; needed by Emacs 21.
(if (not (boundp 'url-unreserved-chars))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment