[Emacs-diffs] emacs/lisp ChangeLog progmodes/sym-comp.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/11/19 22:03:39

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : sym-comp.el 

Log message:
        (symbol-complete): Use completion-in-region.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16675&r2=1.16676
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/sym-comp.el?cvsroot=emacs&r1=1.8&r2=1.9

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16675
retrieving revision 1.16676
diff -u -b -r1.16675 -r1.16676
--- ChangeLog   19 Nov 2009 22:02:53 -0000      1.16675
+++ ChangeLog   19 Nov 2009 22:03:36 -0000      1.16676
@@ -1,5 +1,7 @@
 2009-11-19  Stefan Monnier  <address@hidden>
 
+       * progmodes/sym-comp.el (symbol-complete): Use completion-in-region.
+
        * filecache.el (file-cache-add-file): Use push and cons.
        (file-cache-delete-file-regexp): Use push.
        (file-cache-complete): Use completion-in-region.

Index: progmodes/sym-comp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/sym-comp.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- progmodes/sym-comp.el       31 Aug 2009 05:47:09 -0000      1.8
+++ progmodes/sym-comp.el       19 Nov 2009 22:03:39 -0000      1.9
@@ -143,14 +143,9 @@
               (lambda (str)
                 (car-safe (cdr-safe
                            (funcall symbol-completion-transform-function
-                                    str))))))
-         (minibuffer-completion-table completions)
-         (minibuffer-completion-predicate predicate)
-         (ol (make-overlay (- (point) (length pattern)) (point) nil nil t)))
-      (overlay-put ol 'field 'sym-comp)
-      (unwind-protect
-          (call-interactively 'minibuffer-complete)
-        (delete-overlay ol))))
+                                    str)))))))
+    (completion-in-region (- (point) (length pattern)) (point)
+                          completions predicate)))
 
 (eval-when-compile (require 'hippie-exp))