[Emacs-commit] emacs/lisp/mh-e mh-comp.el ChangeLog

[Masatake YAMATO]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Masatake YAMATO <address@hidden>        05/10/16 09:31:45

Modified files:
        lisp/mh-e      : mh-comp.el ChangeLog 

Log message:
        * message.el (message-expand-group): Pass the common
        prefix substring of completion to `display-completion-list'.
        
        * mh-comp.el (mh-complete-word): Pass the common
        prefix substring of completion to `display-completion-list'.
        
        * dabbrev.el (dabbrev-completion): Pass the common
        prefix substring of completion to `display-completion-list'.
        
        * filecache.el (file-cache-minibuffer-complete)
        (file-cache-complete): Ditto.
        
        * tempo.el (tempo-display-completions): Ditto.
        
        * wid-edit.el (widget-file-complete, widget-color-complete): Ditto.
        
        * emacs-lisp/lisp.el (lisp-complete-symbol): Ditto.
        
        * eshell/em-hist.el (eshell-list-history): Ditto.
        
        * mail/mailabbrev.el (mail-abbrev-complete-alias): Ditto.
        
        * progmodes/etags.el (complete-tag): Ditto.
        
        * progmodes/make-mode.el (makefile-complete): Ditto.
        
        * progmodes/meta-mode.el (meta-complete-symbol): Ditto.
        
        * progmodes/octave-mod.el (octave-complete-symbol): Ditto.
        
        * progmodes/pascal.el (pascal-complete-word)
        (pascal-show-completions): Ditto.
        
        * textmodes/bibtex.el (bibtex-complete-internal): Ditto.
        
        * simple.el (completion-common-substring): New variable.
        (completion-setup-function): Use `completion-common-substring'
        to put faces.
        
        * minibuf.c (Fdisplay_completion_list): Add new optional
        argument COMMON_SUBSTRING. Bind `completion-common-substring'
        to the optional argument during running `completion-setup-hook'.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/mh-e/mh-comp.el.diff?tr1=1.15&tr2=1.16&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.39&tr2=1.40&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.39 emacs/lisp/mh-e/ChangeLog:1.40
--- emacs/lisp/mh-e/ChangeLog:1.39      Sun Oct 16 03:24:54 2005
+++ emacs/lisp/mh-e/ChangeLog   Sun Oct 16 09:31:45 2005
@@ -1,3 +1,8 @@
+2005-10-16  Masatake YAMATO  <address@hidden>
+
+       * mh-comp.el (mh-complete-word): Pass the common
+       prefix substring of completion to `display-completion-list'.
+
 2005-10-15  Satyaki Das  <address@hidden>
 
        * mh-init.el (mh-image-load-path-called-flag): New variable which
Index: emacs/lisp/mh-e/mh-comp.el
diff -u emacs/lisp/mh-e/mh-comp.el:1.15 emacs/lisp/mh-e/mh-comp.el:1.16
--- emacs/lisp/mh-e/mh-comp.el:1.15     Fri Oct 14 16:05:37 2005
+++ emacs/lisp/mh-e/mh-comp.el  Sun Oct 16 09:31:45 2005
@@ -1650,7 +1650,8 @@
           ((stringp completion)
            (if (equal word completion)
                (with-output-to-temp-buffer completions-buffer
-                 (display-completion-list (all-completions word choices)))
+                 (display-completion-list (all-completions word choices)
+                                          word))
              (ignore-errors
                (kill-buffer completions-buffer))
              (delete-region begin end)