andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Work around "Attempt to modify read-only object"

Browse source 
* lisp/progmodes/elisp-mode.el (elisp--xref-format): Extract from
elisp--xref-find-definitions, to work around "Attempt to modify
read-only object" error.
This commit is contained in:
Dmitry Gutov 2015-05-05 15:28:41 +03:00
parent fbe7fb0547
commit 755045e1eb
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/progmodes/elisp-mode.el
View file

@ -628,12 +628,15 @@ It can be quoted, or be inside a quoted form."
(setq file (substring file 0 -1)))
(xref-make-elisp-location sym type file))))
(defvar elisp--xref-format
(let ((str "(%s %s)"))
(put-text-property 1 3 'face 'font-lock-keyword-face str)
(put-text-property 4 6 'face 'font-lock-function-name-face str)
str))
(defun elisp--xref-find-definitions (symbol)
(save-excursion
(let ((fmt "(%s %s)")
lst)
(put-text-property 1 3 'face 'font-lock-keyword-face fmt)
(put-text-property 4 6 'face 'font-lock-function-name-face fmt)
(let (lst)
(dolist (type '(feature defface defvar defun))
(let ((loc
(condition-case err
@ -642,7 +645,7 @@ It can be quoted, or be inside a quoted form."
(xref-make-bogus-location (error-message-string err))))))
(when loc
(push
(xref-make (format fmt type symbol)
(xref-make (format elisp--xref-format type symbol)
loc)
lst))))
lst)))