Commit ab2c15d4 authored by Chong Yidong's avatar Chong Yidong
Browse files

* cedet/semantic/complete.el (semantic-complete-read-tag-engine)

(semantic-complete-jump-local, semantic-complete-jump): Improve
prompt string.
parent 8b571bf3
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.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment