[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 15/38: Small fixes to last change
From: |
Leo Liu |
Subject: |
[elpa] 15/38: Small fixes to last change |
Date: |
Mon, 24 Mar 2014 09:31:34 +0000 |
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
- [elpa] 17/38: Fix ggtags-with-current-project to include GTAGSCONF, (continued)
- [elpa] 17/38: Fix ggtags-with-current-project to include GTAGSCONF, Leo Liu, 2014/03/24
- [elpa] 19/38: Use read-only-mode in ggtags-toggle-project-read-only, Leo Liu, 2014/03/24
- [elpa] 18/38: Fix #36: Allow customising path to global's exectuables, Leo Liu, 2014/03/24
- [elpa] 20/38: Teach ggtags-find-tag-dwim to detect #include files, Leo Liu, 2014/03/24
- [elpa] 25/38: Fix ggtags-find-project to check on the GTAGS file, Leo Liu, 2014/03/24
- [elpa] 23/38: Simplify ggtags-save-to-register by always re-do the search, Leo Liu, 2014/03/24
- [elpa] 21/38: Add new command ggtags-save-to-register for #37, Leo Liu, 2014/03/24
- [elpa] 16/38: Fix ggtags-show-definition to run in current project, Leo Liu, 2014/03/24
- [elpa] 24/38: Fix thinko in "Don't display buffer if ggtags-navigation-mode is exited", Leo Liu, 2014/03/24
- [elpa] 26/38: New macro ignore-errors-unless-debug and use it, Leo Liu, 2014/03/24
- [elpa] 15/38: Small fixes to last change,
Leo Liu <=
- [elpa] 32/38: Bind ggtags-save-to-register in ggtags-global-rerun-search-map, Leo Liu, 2014/03/24
- [elpa] 28/38: New helper ggtags-forward-to-line and use it, Leo Liu, 2014/03/24
- [elpa] 27/38: Cosmetic change: Fix indentation, Leo Liu, 2014/03/24
- [elpa] 29/38: New feature ggtags-global-restore-search for #37, Leo Liu, 2014/03/24
- [elpa] 33/38: Disable ggtags-navigation-mode in ggtags-global-rerun-search, Leo Liu, 2014/03/24
- [elpa] 31/38: Also record ggtags-process-environment in search history, Leo Liu, 2014/03/24
- [elpa] 30/38: Polish last change, Leo Liu, 2014/03/24
- [elpa] 34/38: Support search bookmarks as requested in #39, Leo Liu, 2014/03/24
- [elpa] 38/38: Merge branch 'master' of github.com:leoliu/ggtags, Leo Liu, 2014/03/24
- [elpa] 37/38: Rename try-complete-ggtags-tag to ggtags-try-complete-tag, Leo Liu, 2014/03/24