[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog cedet/semantic/complete.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog cedet/semantic/complete.el |
Date: |
Sat, 21 Nov 2009 20:18:42 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 09/11/21 20:18:42
Modified files:
lisp : ChangeLog
lisp/cedet/semantic: complete.el
Log message:
* cedet/semantic/complete.el (semantic-complete-read-tag-engine)
(semantic-complete-jump-local, semantic-complete-jump): Improve
prompt string.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16698&r2=1.16699
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/complete.el?cvsroot=emacs&r1=1.9&r2=1.10
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16698
retrieving revision 1.16699
diff -u -b -r1.16698 -r1.16699
--- ChangeLog 21 Nov 2009 15:40:33 -0000 1.16698
+++ ChangeLog 21 Nov 2009 20:18:37 -0000 1.16699
@@ -1,3 +1,9 @@
+2009-11-21 Chong Yidong <address@hidden>
+
+ * cedet/semantic/complete.el (semantic-complete-read-tag-engine)
+ (semantic-complete-jump-local, semantic-complete-jump): Improve
+ prompt string.
+
2009-11-21 Jan Djärv <address@hidden>
* cus-start.el (all): Add native condition for font-use-system-font.
Index: cedet/semantic/complete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/complete.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- cedet/semantic/complete.el 20 Nov 2009 15:11:19 -0000 1.9
+++ cedet/semantic/complete.el 21 Nov 2009 20:18:42 -0000 1.10
@@ -224,7 +224,7 @@
(if (string-match ":" prompt)
(setq prompt (concat
(substring prompt 0 (match-beginning 0))
- " (" default-as-string ")"
+ " (default " default-as-string ")"
(substring prompt (match-beginning 0))))
(setq prompt (concat prompt " (" default-as-string "): "))))
;;
@@ -1976,7 +1976,7 @@
(defun semantic-complete-jump-local ()
"Jump to a semantic symbol."
(interactive)
- (let ((tag (semantic-complete-read-tag-buffer-deep "Symbol: ")))
+ (let ((tag (semantic-complete-read-tag-buffer-deep "Jump to symbol: ")))
(when (semantic-tag-p tag)
(push-mark)
(goto-char (semantic-tag-start tag))
@@ -1989,7 +1989,7 @@
(defun semantic-complete-jump ()
"Jump to a semantic symbol."
(interactive)
- (let* ((tag (semantic-complete-read-tag-project "Symbol: ")))
+ (let* ((tag (semantic-complete-read-tag-project "Jump to symbol: ")))
(when (semantic-tag-p tag)
(push-mark)
(semantic-go-to-tag tag)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog cedet/semantic/complete.el,
Chong Yidong <=