[Emacs-diffs] emacs/lisp ChangeLog cedet/semantic/complete.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/11/21 20:18:42

Modified files:
        lisp           : ChangeLog 
        lisp/cedet/semantic: complete.el 

Log message:
        * cedet/semantic/complete.el (semantic-complete-read-tag-engine)
        (semantic-complete-jump-local, semantic-complete-jump): Improve
        prompt string.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16698&r2=1.16699
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/complete.el?cvsroot=emacs&r1=1.9&r2=1.10

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16698
retrieving revision 1.16699
diff -u -b -r1.16698 -r1.16699
--- ChangeLog   21 Nov 2009 15:40:33 -0000      1.16698
+++ ChangeLog   21 Nov 2009 20:18:37 -0000      1.16699
@@ -1,3 +1,9 @@
+2009-11-21  Chong Yidong  <address@hidden>
+
+       * 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  <address@hidden>
 
        * cus-start.el (all): Add native condition for font-use-system-font.

Index: cedet/semantic/complete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/complete.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- cedet/semantic/complete.el  20 Nov 2009 15:11:19 -0000      1.9
+++ cedet/semantic/complete.el  21 Nov 2009 20:18:42 -0000      1.10
@@ -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)