[elpa] master 9413acb 52/54: counsel.el (counsel--find-symbol): Allow to jump back with pop-tag-mark

[Oleh Krehel]

branch: master
commit 9413acb435721737d446ea66f2c3c6611d2f23f1
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el (counsel--find-symbol): Allow to jump back with pop-tag-mark
    
    Using "C-." in:
    
    - counsel-describe-function
    - counsel-describe-variable
    - counsel-load-library
    
    will change the current buffer. The buffer and point can be restored
    with "M-*" (`pop-tag-mark').
    
    I also recommend this binding:
    
        (global-set-key (kbd "M-,") 'pop-tag-mark)
---
 counsel.el |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/counsel.el b/counsel.el
index bf901fb..7332e89 100644
--- a/counsel.el
+++ b/counsel.el
@@ -33,6 +33,7 @@
 ;;; Code:
 
 (require 'swiper)
+(require 'etags)
 
 (defvar counsel-completion-beg nil
   "Completion bounds start.")
@@ -169,6 +170,7 @@
 
 (defun counsel--find-symbol (x)
   "Find symbol definition that corresponds to string X."
+  (ring-insert find-tag-marker-ring (point-marker))
   (let ((full-name (get-text-property 0 'full-name x)))
     (if full-name
         (find-library full-name)