# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1258834717 0
# Node ID ac73aedf08257e6168a0ddbb9f2d0dcab789e1d2
# Parent  b5eb529d273936f0feaf50a782446c7594954985
* cedet/semantic/complete.el (semantic-complete-read-tag-engine)
(semantic-complete-jump-local, semantic-complete-jump): Improve
prompt string.

diff -r b5eb529d2739 -r ac73aedf0825 lisp/ChangeLog
--- 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.
diff -r b5eb529d2739 -r ac73aedf0825 lisp/cedet/semantic/complete.el
--- 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)