leoliu pushed a commit to branch master
in repository elpa.
commit 339ec1069bd42d029bfd8d922beff3ca47443158
Author: Leo Liu <sdl....@gmail.com>
Date: Tue Mar 18 10:12:20 2014 +0800
Add new command ggtags-save-to-register for #37
---
ggtags.el | 51 ++++++++++++++++++++++++++++++++++++++++++++++++---
1 files changed, 48 insertions(+), 3 deletions(-)
diff --git a/ggtags.el b/ggtags.el
index 3f437b6..e44a592 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -74,10 +74,12 @@
(list 'make-variable-buffer-local (list 'quote var))))))
(eval-and-compile
- (or (fboundp 'user-error)
+ (or (fboundp 'user-error) ;24.3
(defalias 'user-error 'error))
- (or (fboundp 'read-only-mode)
- (defalias 'read-only-mode 'toggle-read-only)))
+ (or (fboundp 'read-only-mode) ;24.3
+ (defalias 'read-only-mode 'toggle-read-only))
+ (or (fboundp 'register-read-with-preview) ;24.4
+ (defalias 'register-read-with-preview 'read-char)))
(defgroup ggtags nil
"GNU Global source code tagging system."
@@ -825,6 +827,46 @@ Global and Emacs."
(nreverse files))))
(tags-query-replace from to delimited file-form)))
+(defun ggtags-save-to-register (r)
+ "Save current search session to register R.
+Use \\[jump-to-register] to restore the search session."
+ (interactive (list (ggtags-ensure-global-buffer
+ (register-read-with-preview
+ (format "Save search in `%s' to register: "
(buffer-name))))))
+ (ggtags-ensure-global-buffer
+ (rename-buffer (format "*ggtags %s*" ggtags-current-tag-name) t)
+ (cl-labels ((move-to-error (buf line)
+ (with-current-buffer buf
+ (goto-char (point-min))
+ (forward-line (1- line))
+ (setq ggtags-global-last-buffer
(current-buffer))
+ (ggtags-navigation-mode 1)
+ (setq compilation-current-error (point))
+ (compile-goto-error)))
+ (jump (data)
+ (pcase data
+ (`(,buf ,line ,command ,root)
+ (if (get-buffer buf)
+ (progn
+ (ggtags-global--display-buffer buf)
+ (move-to-error buf line))
+ (with-current-buffer
+ (let ((ggtags-auto-jump-to-first-match nil))
+ (ggtags-global-start command root))
+ (add-hook 'compilation-finish-functions
+ (lambda (buf _msg) (move-to-error buf
line))
+ nil t)
+ (rename-buffer buf))))))
+ (prn (data)
+ (pcase data
+ (`(,_buf ,line ,command ,root)
+ (princ (format "a ggtags search session `%s' in
directory `%s' at line %d."
+ command root line))))))
+ (set-register r (registerv-make
+ (list (buffer-name) (line-number-at-pos)
+ (car compilation-arguments) default-directory)
+ :jump-func #'jump :print-func #'prn)))))
+
(defun ggtags-delete-tag-files ()
"Delete the tag files generated by gtags."
(interactive (ignore (ggtags-check-project)))
@@ -1445,6 +1487,7 @@ When finished invoke CALLBACK in BUFFER with process exit
status."
(define-key m "\M-k" 'ggtags-kill-file-buffers)
(define-key m "\M-h" 'ggtags-view-tag-history)
(define-key m "\M-j" 'ggtags-visit-project-root)
+ (define-key m (kbd "M-SPC") 'ggtags-save-to-register)
(define-key m (kbd "M-%") 'ggtags-query-replace)
(define-key m "\M-?" 'ggtags-show-definition)
m))
@@ -1495,6 +1538,8 @@ When finished invoke CALLBACK in BUFFER with process exit
status."
(define-key menu [prev-mark]
'(menu-item "Previous mark" ggtags-prev-mark))
(define-key menu [sep1] menu-bar-separator)
+ (define-key menu [save-to-register]
+ '(menu-item "Save search session" ggtags-save-to-register))
(define-key menu [previous-error]
'(menu-item "Previous match" previous-error))
(define-key menu [next-error]
