[elpa] 15/38: Small fixes to last change

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit 07a0e521aa49ac3acdd59bf9453b5e812cfe90fd
Author: Leo Liu <address@hidden>
Date:   Fri Mar 7 19:42:10 2014 +0800

    Small fixes to last change
---
 ggtags.el |   21 ++++++++++++---------
 1 files changed, 12 insertions(+), 9 deletions(-)

diff --git a/ggtags.el b/ggtags.el
index 24a0085..16a4a36 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -462,7 +462,7 @@ Value is new modtime if updated."
 
 (defun ggtags-visit-project-root ()
   (interactive)
-  (ggtags-check-project)
+  (ggtags-ensure-project)
   (dired (ggtags-current-project-root)))
 
 (defmacro ggtags-with-current-project (&rest body)
@@ -1480,14 +1480,17 @@ When finished invoke CALLBACK in BUFFER with process 
exit status."
 
 (put 'ggtags-mode-line-project-name 'risky-local-variable t)
 (defvar ggtags-mode-line-project-name
-  '("[" (:eval (when (stringp ggtags-project-root)
-                 (let ((name (file-name-nondirectory
-                              (directory-file-name ggtags-project-root))))
-                   (propertize name 'face compilation-info-face
-                               'help-echo (concat "mouse-1 to visit "
-                                                  ggtags-project-root)
-                               'mouse-face 'mode-line-highlight
-                               'keymap ggtags-mode-line-project-keymap))))
+  '("[" (:eval (let ((name (if (stringp ggtags-project-root)
+                               (file-name-nondirectory
+                                (directory-file-name ggtags-project-root))
+                             "?")))
+                 (propertize
+                  name 'face compilation-info-face
+                  'help-echo (if (stringp ggtags-project-root)
+                                 (concat "mouse-1 to visit " 
ggtags-project-root)
+                               "mouse-1 to set project")
+                  'mouse-face 'mode-line-highlight
+                  'keymap ggtags-mode-line-project-keymap)))
     "]"))
 
 ;;;###autoload