Skip to content

Commit

Permalink
Fix some warnings
Browse files Browse the repository at this point in the history
  • Loading branch information
Andersbakken committed Jan 7, 2016
1 parent 4cf63d5 commit aa9ca90
Showing 1 changed file with 8 additions and 4 deletions.
12 changes: 8 additions & 4 deletions src/rtags.el
Original file line number Diff line number Diff line change
Expand Up @@ -609,7 +609,10 @@ to case differences."
(set-buffer rtags-buffer-name)
(when reset
(goto-char (point-min)))
(when (and rtags-use-helm (get-buffer-window helm-action-buffer 'visible) (fboundp 'helm-keyboard-quit))
(when (and rtags-use-helm
(boundp 'helm-action-buffer)
(get-buffer-window helm-action-buffer 'visible)
(fboundp 'helm-keyboard-quit))
(helm-keyboard-quit))
(when (> (count-lines (point-max) (point-min)) 1)
(while (not (eq by 0))
Expand Down Expand Up @@ -2635,9 +2638,7 @@ is true. References to references will be treated as references to the reference
(set-text-properties start end (list 'rtags-bookmark-index (cons bookmark-idx start)))))
(forward-line))
(shrink-window-if-larger-than-buffer)
(rtags-mode)
(when path
(setq rtags-current-file path)))
(rtags-mode))

(defun rtags-handle-results-buffer (&optional noautojump quiet path other-window)
"Handle results from RTags. Should be called with the results buffer as current.
Expand All @@ -2646,6 +2647,9 @@ The option OTHER-WINDOW is only applicable if rtags is configured not to show th
"
(rtags-reset-bookmarks)
(set-text-properties (point-min) (point-max) nil)
(when path
(setq rtags-current-file path))

(cond ((= (point-min) (point-max))
(unless quiet
(message "RTags: No results"))
Expand Down

0 comments on commit aa9ca90

Please sign in to comment.