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

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index fe72b3f778c87723b0c48dace512cdd088d5bc65..afcbbf52264eb5f4e04e7bda7891d84268915c25 100644 (file)
--- 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 ()