(mh-display-completion-list-compat): New macro which calls

`display-completion-list' correctly in older environments. Versions of
Emacs prior to version 22 lacked a COMMON-SUBSTRING argument.
(mh-complete-word): Use it.

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 89f257ed2a3069a454fcd2c5d540c22781029fd0..53c562c86a0460dcd0abb27824d69d832536ec0d 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,5 +1,11 @@
 2005-10-16  Bill Wohler  <wohler@newt.com>
 
+       * mh-comp.el (mh-display-completion-list-compat): New macro which
+       calls `display-completion-list' correctly in older environments.
+       Versions of Emacs prior to version 22 lacked a COMMON-SUBSTRING
+       argument.
+       (mh-complete-word): Use it.
+
        * mh-init.el (mh-image-load-path): Use locate-library to find
        MH-E. This simplified the code a lot. Flattened out nested
        statements even more.

diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index 2aec8e8df9a85425e8b1519bc4a1a3a184485eaf..753f4ad50aaa87706121522692a3e12993d528fa 100644 (file)
--- a/lisp/mh-e/mh-comp.el
+++ b/lisp/mh-e/mh-comp.el
@@ -1633,6 +1633,16 @@ This is useful in breaking up paragraphs in replies."
 
 (mh-do-in-xemacs (defvar mail-abbrevs))
 
+(defmacro mh-display-completion-list-compat (word choices)
+  "Completes WORD from CHOICES using `display-completion-list'.
+Calls `display-completion-list' correctly in older environments.
+Versions of Emacs prior to version 22 lacked a COMMON-SUBSTRING argument
+which is used to highlight the next possible character you can enter
+in the current list of completions."
+  (if (>= emacs-major-version 22)
+      `(display-completion-list (all-completions ,word ,choices) ,word)
+    `(display-completion-list (all-completions ,word ,choices))))
+
 ;;;###mh-autoload
 (defun mh-complete-word (word choices begin end)
   "Complete WORD at from CHOICES.
@@ -1650,8 +1660,7 @@ Any match found replaces the text from BEGIN to END."
           ((stringp completion)
            (if (equal word completion)
                (with-output-to-temp-buffer completions-buffer
-                 (display-completion-list (all-completions word choices)
-                                          word))
+                 (mh-display-completion-list-compat word choices))
              (ignore-errors
                (kill-buffer completions-buffer))
              (delete-region begin end)