From: Leo Liu <sdl.web@gmail.com>
Date: Fri, 17 Apr 2015 04:32:33 +0000 (+0800)
Subject: * lisp/progmodes/xref.el (xref-push-marker-stack): Add optional arg.
X-Git-Tag: emacs-25.0.90~2390
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85c3e1be241867feac2b57d1f849085e9d2bb54f;p=emacs.git

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

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index fe72b3f778c..afcbbf52264 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -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 ()