From: Leo Liu 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 ()