mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Buttonize the whole line, including the number at the beginning

Browse source 
* lisp/progmodes/xref.el (xref--location-at-point): Revert the
previous change.
(xref--insert-xrefs): Buttonize the whole line, including the
number at the beginning.
This commit is contained in:
Dmitry Gutov 2015-05-05 05:05:02 +03:00
parent 46c94cd599
commit ca717aa0fd
1 changed files with 18 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

37
lisp/progmodes/xref.el
View file

@ -439,10 +439,9 @@ Used for temporary buffers.")
(xref-show-location-at-point))
(defun xref--location-at-point ()
(let ((pos (next-single-char-property-change (line-beginning-position)
'xref-location
nil (line-end-position))))
(and pos (get-text-property pos 'xref-location))))
(save-excursion
(back-to-indentation)
(get-text-property (point) 'xref-location)))
(defvar-local xref--window nil
"ACTION argument to call `display-buffer' with.")
@ -548,21 +547,21 @@ GROUP is a string for decoration purposes and XREF is an
(xref--insert-propertized '(face compilation-info) group "\n")
(cl-loop for (xref . more2) on xrefs do
(with-slots (description location) xref
(let ((line (xref-location-line location)))
(if line
(xref--insert-propertized
'(face compilation-line-number)
(format line-format line))
(insert " ")))
(xref--insert-propertized
(list 'xref-location location
;; 'face 'font-lock-keyword-face
'mouse-face 'highlight
'keymap xref--button-map
'help-echo
(concat "mouse-2: display in another window, "
"RET or mouse-1: follow reference"))
description))
(let* ((line (xref-location-line location))
(prefix
(if line
(propertize (format line-format line)
'face 'compilation-line-number)
" ")))
(xref--insert-propertized
(list 'xref-location location
;; 'face 'font-lock-keyword-face
'mouse-face 'highlight
'keymap xref--button-map
'help-echo
(concat "mouse-2: display in another window, "
"RET or mouse-1: follow reference"))
prefix description)))
(insert "\n"))))
(defun xref--analyze (xrefs)