diff options
| author | Leo Liu | 2015-04-17 12:32:33 +0800 |
|---|---|---|
| committer | Leo Liu | 2015-04-17 12:32:33 +0800 |
| commit | 85c3e1be241867feac2b57d1f849085e9d2bb54f (patch) | |
| tree | b31b24aedb9ceb70ac79820d4baea0858094a0ab | |
| parent | 183952e518f98b0ac97d9815be85a6f3dd6634a4 (diff) | |
| download | emacs-85c3e1be241867feac2b57d1f849085e9d2bb54f.tar.gz emacs-85c3e1be241867feac2b57d1f849085e9d2bb54f.zip | |
* lisp/progmodes/xref.el (xref-push-marker-stack): Add optional arg.
| -rw-r--r-- | lisp/progmodes/xref.el | 6 |
1 files changed, 3 insertions, 3 deletions
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." | |||
| 279 | (defvar xref--marker-ring (make-ring xref-marker-ring-length) | 279 | (defvar xref--marker-ring (make-ring xref-marker-ring-length) |
| 280 | "Ring of markers to implement the marker stack.") | 280 | "Ring of markers to implement the marker stack.") |
| 281 | 281 | ||
| 282 | (defun xref-push-marker-stack () | 282 | (defun xref-push-marker-stack (&optional m) |
| 283 | "Add point to the marker stack." | 283 | "Add point M (defaults to `point-marker') to the marker stack." |
| 284 | (ring-insert xref--marker-ring (point-marker))) | 284 | (ring-insert xref--marker-ring (or m (point-marker)))) |
| 285 | 285 | ||
| 286 | ;;;###autoload | 286 | ;;;###autoload |
| 287 | (defun xref-pop-marker-stack () | 287 | (defun xref-pop-marker-stack () |