procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/mh-e/mh-compat.el (mh-display-completion-list): Replace use of obsolete

Browse source 
argument of display-completion-list.
This commit is contained in:
Glenn Morris 2014-03-05 21:02:46 -05:00
parent c94e6ee499
commit c544840969
2 changed files with 17 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mh-e/ChangeLog
View file

@ -1,3 +1,8 @@
2014-03-06 Glenn Morris <rgm@gnu.org>
* mh-compat.el (mh-display-completion-list):
Replace use of obsolete argument of display-completion-list.
2013-11-05 Stefan Monnier <monnier@iro.umontreal.ca>
* mh-print.el (mh-ps-print-preprint): Don't use dynamic-var

18
lisp/mh-e/mh-compat.el
View file

@ -96,12 +96,18 @@ expected to return an integer."
(defmacro mh-display-completion-list (completions &optional common-substring)
"Display the list of COMPLETIONS.
See documentation for `display-completion-list' for a description of the
arguments COMPLETIONS and perhaps COMMON-SUBSTRING.
This macro is used by Emacs versions that lack a COMMON-SUBSTRING
argument, introduced in Emacs 22."
(if (< emacs-major-version 22)
`(display-completion-list ,completions)
`(display-completion-list ,completions ,common-substring)))
arguments COMPLETIONS.
The optional argument COMMON-SUBSTRING, if non-nil, should be a string
specifying a common substring for adding the faces
`completions-first-difference' and `completions-common-part' to
the completions."
(cond ((< emacs-major-version 22) `(display-completion-list ,completions))
((fboundp 'completion-hilit-commonality) ; Emacs 23.1 and later
`(display-completion-list
(completion-hilit-commonality ,completions
,(length common-substring) nil)))
(t ; Emacs 22
`(display-completion-list ,completions ,common-substring))))
(defmacro mh-face-foreground (face &optional frame inherit)
"Return the foreground color name of FACE, or nil if unspecified.