From ab2c15d4e2d992556854dc7e8d650d2280101a93 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 21 Nov 2009 20:18:37 +0000 Subject: [PATCH] * cedet/semantic/complete.el (semantic-complete-read-tag-engine) (semantic-complete-jump-local, semantic-complete-jump): Improve prompt string. --- lisp/ChangeLog | 6 ++++++ lisp/cedet/semantic/complete.el | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9b95a93e451..f24fb9d370c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-11-21 Chong Yidong + + * 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 * cus-start.el (all): Add native condition for font-use-system-font. diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index 657bc4752b9..58453ec223c 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el @@ -224,7 +224,7 @@ HISTORY is a symbol representing a variable to story the history in." (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 @@ completion works." (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 @@ completion works." (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) -- 2.39.5