diff options
| author | Paul Eggert | 2016-05-05 23:11:11 -0700 |
|---|---|---|
| committer | Paul Eggert | 2016-05-05 23:11:11 -0700 |
| commit | 89ce83b20249dfb4e45f09dfdddf4c4b66d82968 (patch) | |
| tree | 3d75245a5514df2ad7b17ae6d56727b9629846a9 /lisp/progmodes/elisp-mode.el | |
| parent | d546ed13b04521308ef7ec8e7e5b68e03f1bbb38 (diff) | |
| parent | 50650cb6887d99b01eeb1e686fc1f695c2a0c64a (diff) | |
| download | emacs-89ce83b20249dfb4e45f09dfdddf4c4b66d82968.tar.gz emacs-89ce83b20249dfb4e45f09dfdddf4c4b66d82968.zip | |
Merge from origin/emacs-25
50650cb Doc fixes for fclist and grep
5e814e0 Minor doc fixes for quoting
3347a73 `nreverse' the marker pairs list
1a4127d Use save-excursion in xref-location-marker more
ab3ba91 shell-quote-argument DIR when appropriate
922c7a3 Rework xref-query-replace-in-results
3fe3510 * lisp/replace.el (query-replace-read-from): Use minibuffer-w...
0932b94 Fix todo-mode bug involving archived items (bug#23447)
e68ad1f ; * etc/NEWS: Tiny edit. (Bug#23432)
adc80b7 ; * test/automated/xref-tests.el: Add copyright and license.
4d8fd9c Handle "empty line" regexp in xref searches
f559b37 Add tests for xref-collect-matches
6428aa0 Use grep-find-ignored-directories instead of vc-directory-exc...
6f82d8e Clear buffer-undo-list when showing xrefs
c68a091 Note the quote translation in `message' in section "incompati...
52f86a7 * etc/NEWS: Mention (message "%s" (format ...)).
93703c5 (Common Keywords): Correct what missing :group means
79e5800 Improve documentation of Dired's 'A' and 'Q' commands
2ea2a2f Doc fixes for quoting
8544b98 posnp doc clarification
805204f Mention what a missing :group does
ec554d7 Fix documentation of dired-aux search/replace commands
Diffstat (limited to 'lisp/progmodes/elisp-mode.el')
| -rw-r--r-- | lisp/progmodes/elisp-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index 1c728484ab5..2ad22ddd0ff 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el | |||
| @@ -823,8 +823,9 @@ non-nil result supercedes the xrefs produced by | |||
| 823 | (pcase-let (((cl-struct xref-elisp-location symbol type file) l)) | 823 | (pcase-let (((cl-struct xref-elisp-location symbol type file) l)) |
| 824 | (let ((buffer-point (find-function-search-for-symbol symbol type file))) | 824 | (let ((buffer-point (find-function-search-for-symbol symbol type file))) |
| 825 | (with-current-buffer (car buffer-point) | 825 | (with-current-buffer (car buffer-point) |
| 826 | (goto-char (or (cdr buffer-point) (point-min))) | 826 | (save-excursion |
| 827 | (point-marker))))) | 827 | (goto-char (or (cdr buffer-point) (point-min))) |
| 828 | (point-marker)))))) | ||
| 828 | 829 | ||
| 829 | (cl-defmethod xref-location-group ((l xref-elisp-location)) | 830 | (cl-defmethod xref-location-group ((l xref-elisp-location)) |
| 830 | (xref-elisp-location-file l)) | 831 | (xref-elisp-location-file l)) |