[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog minibuffer.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog minibuffer.el |
Date: |
Tue, 18 Aug 2009 19:11:47 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 09/08/18 19:11:46
Modified files:
lisp : ChangeLog minibuffer.el
Log message:
(completion--do-completion): Move point for the #b001 case as well
(bug#4176).
(minibuffer-complete, minibuffer-complete-word): Don't move point.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15961&r2=1.15962
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/minibuffer.el?cvsroot=emacs&r1=1.77&r2=1.78
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15961
retrieving revision 1.15962
diff -u -b -r1.15961 -r1.15962
--- ChangeLog 18 Aug 2009 15:12:14 -0000 1.15961
+++ ChangeLog 18 Aug 2009 19:11:41 -0000 1.15962
@@ -1,3 +1,9 @@
+2009-08-18 Stefan Monnier <address@hidden>
+
+ * minibuffer.el (completion--do-completion): Move point for the #b001
+ case as well (bug#4176).
+ (minibuffer-complete, minibuffer-complete-word): Don't move point.
+
2009-08-18 Michael Albinus <address@hidden>
* net/dbus.el (dbus-init-bus): Declare. Apply it for the :system
@@ -5,8 +11,8 @@
2009-08-18 Kenichi Handa <address@hidden>
- * international/ucs-normalize.el (ucs-normalize-version): Changed
- to 1.1.
+ * international/ucs-normalize.el (ucs-normalize-version):
+ Change to 1.1.
(ucs-normalize-hfs-nfd-pre-write-conversion): New function.
(utf-8-hfs): Make it perform normalization on encoding too.
Index: minibuffer.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/minibuffer.el,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -b -r1.77 -r1.78
--- minibuffer.el 2 Aug 2009 14:56:07 -0000 1.77
+++ minibuffer.el 18 Aug 2009 19:11:46 -0000 1.78
@@ -308,7 +308,8 @@
ALL-COMPLETIONS is the function that lists the completions.")
(defcustom completion-styles '(basic partial-completion emacs22)
- "List of completion styles to use."
+ "List of completion styles to use.
+The available styles are listed in `completion-styles-alist'."
:type `(repeat (choice ,@(mapcar (lambda (x) (list 'const (car x)))
completion-styles-alist)))
:group 'minibuffer
@@ -388,7 +389,9 @@
(cond
((null comp)
(ding) (minibuffer-message "No match") (minibuffer--bitset nil nil nil))
- ((eq t comp) (minibuffer--bitset nil nil t)) ;Exact and unique match.
+ ((eq t comp)
+ (goto-char (field-end))
+ (minibuffer--bitset nil nil t)) ;Exact and unique match.
(t
;; `completed' should be t if some completion was done, which doesn't
;; include simply changing the case of the entered string. However,
@@ -462,11 +465,9 @@
(case (completion--do-completion)
(#b000 nil)
- (#b001 (goto-char (field-end))
- (minibuffer-message "Sole completion")
+ (#b001 (minibuffer-message "Sole completion")
t)
- (#b011 (goto-char (field-end))
- (minibuffer-message "Complete, but not unique")
+ (#b011 (minibuffer-message "Complete, but not unique")
t)
(t t)))))
@@ -694,11 +695,9 @@
(interactive)
(case (completion--do-completion 'completion--try-word-completion)
(#b000 nil)
- (#b001 (goto-char (field-end))
- (minibuffer-message "Sole completion")
+ (#b001 (minibuffer-message "Sole completion")
t)
- (#b011 (goto-char (field-end))
- (minibuffer-message "Complete, but not unique")
+ (#b011 (minibuffer-message "Complete, but not unique")
t)
(t t)))