Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 19:07:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
(semantic-complete-jump-local, semantic-complete-jump): Improve
prompt string.
This commit is contained in:
Chong Yidong 2009-11-21 20:18:37 +00:00
parent 8b571bf308
commit ab2c15d4e2
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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.

6
lisp/cedet/semantic/complete.el
View file

@ -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)