leoliu pushed a commit to branch master
in repository elpa.
commit 6628680ef45b7ffa96d160d7f0ef5327141d7b2b
Author: Leo Liu <sdl....@gmail.com>
Date: Thu Mar 20 11:04:20 2014 +0800
Cosmetic change: Fix indentation
---
ggtags.el | 42 +++++++++++++++++++++---------------------
1 files changed, 21 insertions(+), 21 deletions(-)
diff --git a/ggtags.el b/ggtags.el
index 1b1dc84..e7e8552 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -836,7 +836,7 @@ Global and Emacs."
"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 "Save search to register:
"))))
+ (register-read-with-preview "Save search to register:
"))))
(ggtags-ensure-global-buffer
(cl-labels ((jump (data)
(pcase data
@@ -1333,13 +1333,13 @@ Use \\[jump-to-register] to restore the search session."
(defun ggtags-navigation-isearch-forward (&optional regexp-p)
(interactive "P")
(ggtags-ensure-global-buffer
- (let ((saved (if visible-mode 1 -1)))
- (visible-mode 1)
- (with-selected-window (get-buffer-window (current-buffer))
- (isearch-forward regexp-p)
- (beginning-of-line)
- (visible-mode saved)
- (compile-goto-error)))))
+ (let ((saved (if visible-mode 1 -1)))
+ (visible-mode 1)
+ (with-selected-window (get-buffer-window (current-buffer))
+ (isearch-forward regexp-p)
+ (beginning-of-line)
+ (visible-mode saved)
+ (compile-goto-error)))))
(defun ggtags-navigation-visible-mode (&optional arg)
(interactive (list (or current-prefix-arg 'toggle)))
@@ -1357,12 +1357,12 @@ Use \\[jump-to-register] to restore the search session."
(and ggtags-mode-sticky (ggtags-mode 1))
(ignore-errors
(ggtags-ensure-global-buffer
- (unless (overlayp ggtags-global-line-overlay)
- (setq ggtags-global-line-overlay (make-overlay (point) (point)))
- (overlay-put ggtags-global-line-overlay 'face 'ggtags-global-line))
- (move-overlay ggtags-global-line-overlay
- (line-beginning-position) (line-end-position)
- (current-buffer))))
+ (unless (overlayp ggtags-global-line-overlay)
+ (setq ggtags-global-line-overlay (make-overlay (point) (point)))
+ (overlay-put ggtags-global-line-overlay 'face 'ggtags-global-line))
+ (move-overlay ggtags-global-line-overlay
+ (line-beginning-position) (line-end-position)
+ (current-buffer))))
(run-hooks 'ggtags-find-tag-hook))
(define-minor-mode ggtags-navigation-mode nil
@@ -1370,13 +1370,13 @@ Use \\[jump-to-register] to restore the search session."
(" GG[" (:eval
(ignore-errors
(ggtags-ensure-global-buffer
- (let ((index (when (get-text-property (line-beginning-position)
- 'compilation-message)
- ;; Assume the first match appears at line 5
- (- (line-number-at-pos) 4))))
- `((:propertize ,(if index
- (number-to-string (max index 0))
- "?") face success) "/")))))
+ (let ((index (when (get-text-property (line-beginning-position)
+ 'compilation-message)
+ ;; Assume the first match appears at line 5
+ (- (line-number-at-pos) 4))))
+ `((:propertize ,(if index
+ (number-to-string (max index 0))
+ "?") face success) "/")))))
(:propertize (:eval (number-to-string ggtags-global-match-count))
face success)
(:eval
