leoliu pushed a commit to branch master in repository elpa. commit 02823de20f18b8824d4876808290afc580d2a92b Author: Leo Liu <sdl....@gmail.com> Date: Tue Apr 1 07:35:16 2014 +0800
New function ggtags-echo and use it --- ggtags.el | 33 +++++++++++++++++---------------- 1 files changed, 17 insertions(+), 16 deletions(-) diff --git a/ggtags.el b/ggtags.el index 6f56829..d00cc08 100644 --- a/ggtags.el +++ b/ggtags.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2013-2014 Free Software Foundation, Inc. ;; Author: Leo Liu <sdl....@gmail.com> -;; Version: 0.8.1 +;; Version: 0.8.2 ;; Keywords: tools, convenience ;; Created: 2013-01-29 ;; URL: https://github.com/leoliu/ggtags @@ -309,6 +309,10 @@ properly update `ggtags-mode-map'." "Return non-nil if XS is a list of strings." (cl-every #'stringp xs)) +(defsubst ggtags-echo (format-string &rest args) + "Print formatted text to echo area." + (let (message-log-max) (apply #'message format-string args))) + (defun ggtags-forward-to-line (line) "Move to line number LINE in current buffer." (cl-check-type line (integer 1)) @@ -1062,15 +1066,14 @@ Use \\[jump-to-register] to restore the search session." 0)) (ring-length find-tag-marker-ring))) (let ((m (ring-ref find-tag-marker-ring ggtags-tag-ring-index)) - (i (- (ring-length find-tag-marker-ring) ggtags-tag-ring-index)) - (message-log-max nil)) - (message "%d%s marker%s" i (pcase (mod i 10) - ;; ` required for 24.1 and 24.2 - (`1 "st") - (`2 "nd") - (`3 "rd") - (_ "th")) - (if (marker-buffer m) "" " (dead)")) + (i (- (ring-length find-tag-marker-ring) ggtags-tag-ring-index))) + (ggtags-echo "%d%s marker%s" i (pcase (mod i 10) + ;; ` required for 24.1 and 24.2 + (`1 "st") + (`2 "nd") + (`3 "rd") + (_ "th")) + (if (marker-buffer m) "" " (dead)")) (if (not (marker-buffer m)) (ding) (switch-to-buffer (marker-buffer m)) @@ -1323,9 +1326,8 @@ commands `next-error' and `previous-error'. (make-local-variable 'ggtags-global-large-output) (when (> ggtags-global-output-lines ggtags-global-large-output) (cl-incf ggtags-global-large-output 500) - (let ((message-log-max nil)) - (message "Output %d lines (Type `C-c C-k' to cancel)" - ggtags-global-output-lines)))) + (ggtags-echo "Output %d lines (Type `C-c C-k' to cancel)" + ggtags-global-output-lines))) (defun ggtags-global-handle-exit (buf how) "A function for `compilation-finish-functions' (which see)." @@ -1655,9 +1657,8 @@ When finished invoke CALLBACK in BUFFER with process exit status." proc)) (defun ggtags-show-definition-default (defs) - (let (message-log-max) - (message "%s%s" (or (caar defs) "[definition not found]") - (if (cdr defs) " [guess]" "")))) + (ggtags-echo "%s%s" (or (caar defs) "[definition not found]") + (if (cdr defs) " [guess]" ""))) (defun ggtags-show-definition (name) (interactive (list (ggtags-read-tag 'definition current-prefix-arg)))