Mercurial > emacs
changeset 106188:ac73aedf0825
* cedet/semantic/complete.el (semantic-complete-read-tag-engine)
(semantic-complete-jump-local, semantic-complete-jump): Improve
prompt string.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 21 Nov 2009 20:18:37 +0000 |
| parents | b5eb529d2739 |
| children | 316000cce056 |
| files | lisp/ChangeLog lisp/cedet/semantic/complete.el |
| diffstat | 2 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Nov 21 15:40:24 2009 +0000 +++ b/lisp/ChangeLog Sat Nov 21 20:18:37 2009 +0000 @@ -1,3 +1,9 @@ +2009-11-21 Chong Yidong <cyd@stupidchicken.com> + + * 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 <jan.h.d@swipnet.se> * cus-start.el (all): Add native condition for font-use-system-font.
--- a/lisp/cedet/semantic/complete.el Sat Nov 21 15:40:24 2009 +0000 +++ b/lisp/cedet/semantic/complete.el Sat Nov 21 20:18:37 2009 +0000 @@ -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)