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

* lisp/progmodes/xref.el (xref-push-marker-stack): Add optional arg.

Browse source
This commit is contained in:
Leo Liu 2015-04-17 12:32:33 +08:00
parent 183952e518
commit 85c3e1be24
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/xref.el
View file

@ -279,9 +279,9 @@ backward."
(defvar xref--marker-ring (make-ring xref-marker-ring-length)
"Ring of markers to implement the marker stack.")
(defun xref-push-marker-stack ()
"Add point to the marker stack."
(ring-insert xref--marker-ring (point-marker)))
(defun xref-push-marker-stack (&optional m)
"Add point M (defaults to `point-marker') to the marker stack."
(ring-insert xref--marker-ring (or m (point-marker))))
;;;###autoload
(defun xref-pop-marker-stack ()