[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[ELPA-diffs] /srv/bzr/emacs/elpa r403: * ggtags.el: Release 0.6.4 with v
From: |
Leo Liu |
Subject: |
[ELPA-diffs] /srv/bzr/emacs/elpa r403: * ggtags.el: Release 0.6.4 with various bug fixes |
Date: |
Wed, 29 May 2013 19:38:17 +0800 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 403
committer: Leo Liu <address@hidden>
branch nick: elpa
timestamp: Wed 2013-05-29 19:38:17 +0800
message:
* ggtags.el: Release 0.6.4 with various bug fixes
1. Do not override split-window-preferred-function
2. Avoid closing ECB compilation window
3. Resolve symlinks before passing to 'global'
modified:
packages/ggtags/ggtags.el
=== modified file 'packages/ggtags/ggtags.el'
--- a/packages/ggtags/ggtags.el 2013-03-28 02:53:02 +0000
+++ b/packages/ggtags/ggtags.el 2013-05-29 11:38:17 +0000
@@ -3,7 +3,7 @@
;; Copyright (C) 2013 Free Software Foundation, Inc.
;; Author: Leo Liu <address@hidden>
-;; Version: 0.6.3
+;; Version: 0.6.4
;; Keywords: tools, convenience
;; Created: 2013-01-29
;; URL: https://github.com/leoliu/ggtags
@@ -93,6 +93,11 @@
integer)
:group 'ggtags)
+(defcustom ggtags-split-window-function split-window-preferred-function
+ "A function to control how ggtags pops up the auxiliary window."
+ :type 'function
+ :group 'ggtags)
+
(defvar ggtags-cache nil) ; (ROOT TABLE DIRTY TIMESTAMP)
(defvar ggtags-current-tag-name nil)
@@ -235,8 +240,7 @@
(ggtags-check-root-directory)
(ggtags-navigation-mode +1)
(ring-insert find-tag-marker-ring (point-marker))
- (let ((split-window-preferred-function
- (lambda (w) (split-window (frame-root-window w))))
+ (let ((split-window-preferred-function ggtags-split-window-function)
(default-directory (ggtags-root-directory)))
(compilation-start
(if (or verbose (not buffer-file-name))
@@ -248,7 +252,7 @@
(format "global %s --from-here=%d:%s \"%s\""
ggtags-global-options
(line-number-at-pos)
- (expand-file-name buffer-file-name)
+ (expand-file-name (file-truename buffer-file-name))
name))
'ggtags-global-mode)))
@@ -256,8 +260,7 @@
(interactive)
(ggtags-ensure-global-buffer
(ggtags-navigation-mode +1)
- (let ((split-window-preferred-function
- (lambda (w) (split-window (frame-root-window w)))))
+ (let ((split-window-preferred-function ggtags-split-window-function))
(compile-goto-error))))
(defun ggtags-global-exit-message-function (_process-status exit-status msg)
@@ -364,7 +367,7 @@
(kill-compilation))
(when (and (derived-mode-p 'ggtags-global-mode)
(get-buffer-window))
- (delete-window (get-buffer-window)))
+ (quit-window nil (get-buffer-window)))
(and time (run-with-idle-timer time nil 'kill-buffer buf))))))
(defun ggtags-navigation-mode-done ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [ELPA-diffs] /srv/bzr/emacs/elpa r403: * ggtags.el: Release 0.6.4 with various bug fixes,
Leo Liu <=