[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
complete.el 1.53/1.54 (More partial completion)
From: |
Johan Bockgård |
Subject: |
complete.el 1.53/1.54 (More partial completion) |
Date: |
Mon, 19 Mar 2007 17:57:59 +0100 |
User-agent: |
Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.93 (gnu/linux) |
This part of revision 1.53, complete.el, was undone by revision 1.54,
but the removal wasn't mentioned in the log. Was this intentional?
revision 1.53
date: 2006-05-22 20:09:40 +0200; author: monnier; state: Exp; lines: +13 -5
[...]
(read-file-name-internal): Don't add the final > if the completion is
not finished.
Index: complete.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/complete.el,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -r1.52 -r1.53
--- complete.el 18 Apr 2006 17:33:33 -0000 1.52
+++ complete.el 22 May 2006 18:09:40 -0000 1.53
@@ -943,10 +950,11 @@
(if (string-match "<\\([^\"<>]*\\)>?\\'" (ad-get-arg 0))
(let* ((string (ad-get-arg 0))
(action (ad-get-arg 2))
- (name (substring string (match-beginning 1) (match-end 1)))
+ (name (match-string 1 string))
(str2 (substring string (match-beginning 0)))
(completion-table
- (mapcar (lambda (x) (format "<%s>" x))
+ (mapcar (lambda (x)
+ (format (if (string-match "/\\'" x) "<%s" "<%s>") x))
(PC-include-file-all-completions
name (PC-include-file-path)))))
(setq ad-return-value
--
Johan Bockgård
- complete.el 1.53/1.54 (More partial completion),
Johan Bockgård <=