mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

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

Browse Source 
for XEmacs.
* mh-show.el (mh-show-msg): Use it, and avoid compiler warning on
XEmacs.
This commit is contained in:
Bill Wohler 2011-07-03 17:27:22 -07:00
parent 24f75b1046
commit 7895927f81
2 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/mh-e/ChangeLog
View File

@ -1,5 +1,10 @@
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.

16
lisp/mh-e/mh-compat.el
View File

@ -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))