Mercurial > emacs

comparison lisp/mh-e/mh-compat.el @ 69186:4eb7009c53f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* mh-compat.el (mh-display-color-cells): Return 2 if device-color-cells returns nil (closes SF #1436924). * mh-e.el (mh-compiling-flag): Delete. No longer needed by mh-display-color-cells.
author Bill Wohler <wohler@newt.com>
date Mon, 27 Feb 2006 22:25:07 +0000
parents 3f537f106072
children ade4a047af1b
comparison
equal deleted inserted replaced
69185:ee54b3a792ff 69186:4eb7009c53f4
77 'cancel-timer 77 'cancel-timer
78 'delete-itimer)) 78 'delete-itimer))
79 79
80 (mh-defun-compat mh-display-color-cells display-color-cells (&optional display) 80 (mh-defun-compat mh-display-color-cells display-color-cells (&optional display)
81 "Return the number of color cells supported by DISPLAY. 81 "Return the number of color cells supported by DISPLAY.
82 This function is used by XEmacs to always return 0 when compiling 82 This function is used by XEmacs to return 2 when
83 to avoid compiling errors. Otherwise uses `device-color-cells'." 83 `device-color-cells' returns nil. This happens when compiling or
84 (if mh-compiling-flag 84 running on a tty and causes errors since `display-color-cells' is
85 0 85 expected to return an integer."
86 (device-color-cells display))) 86 (or (device-color-cells display) 2))
87 87
88 (defmacro mh-display-completion-list (completions &optional common-substring) 88 (defmacro mh-display-completion-list (completions &optional common-substring)
89 "Display the list of COMPLETIONS. 89 "Display the list of COMPLETIONS.
90 See documentation for `display-completion-list' for a description of the 90 See documentation for `display-completion-list' for a description of the
91 arguments COMPLETIONS and perhaps COMMON-SUBSTRING. 91 arguments COMPLETIONS and perhaps COMMON-SUBSTRING.