comparison lisp/simple.el @ 50383:2018e9013e52

(pop-global-mark-quick-repeat): Remove defcustom. (set-mark-command): Unconditionally repeat pop-global-mark without C-x prefix. Fix doc.

50382:9bf67e990ee1

  "*Maximum size of global mark ring.  \
Start discarding off end if gets this big."
  :type 'integer
  :group 'editing-basics)

(defcustom pop-global-mark-quick-repeat nil
  "*When non-nil, `pop-global-mark' can be repeated without the prefix key.
E.g. \\[pop-global-mark] \\[set-mark-command] \\[set-mark-command] \
pops to the third mark off the global mark ring.
To cycle through the marks in the target buffer, \
use \\[universal-argument] \\[set-mark-command] \\[set-mark-command]..."
  :type 'boolean
  :group 'editing-basics)

(defun pop-to-mark-command ()
  "Jump to mark, and pop a new position for mark off the ring
\(does not affect global mark ring\)."
  (interactive)
  (if (null (mark t))

jump to mark, and pop a new position
for mark off the local mark ring \(this does not affect the global
mark ring\).  Use \\[pop-global-mark] to jump to a mark off the global
mark ring \(see `pop-global-mark'\).

Repeating the \\[set-mark-command] command without the prefix jumps to the next
position off the local mark ring.  See `pop-global-mark-quick-repeat' if you
want the same effect for \\[pop-global-mark].

With a double \\[universal-argument] prefix argument, e.g. \\[universal-argument] \
\\[universal-argument] \\[set-mark-command], unconditionally
set mark where point is.

	(pop-to-mark-command)
      (push-mark-command t)))
   ((eq last-command 'pop-to-mark-command)
    (setq this-command 'pop-to-mark-command)
    (pop-to-mark-command))
   ((and pop-global-mark-quick-repeat
	 (eq last-command 'pop-global-mark) (not arg))
    (setq this-command 'pop-global-mark)
    (pop-global-mark))
   (arg
    (setq this-command 'pop-to-mark-command)
    (pop-to-mark-command))

50383:2018e9013e52

  "*Maximum size of global mark ring.  \
Start discarding off end if gets this big."
  :type 'integer
  :group 'editing-basics)

(defun pop-to-mark-command ()
  "Jump to mark, and pop a new position for mark off the ring
\(does not affect global mark ring\)."
  (interactive)
  (if (null (mark t))

jump to mark, and pop a new position
for mark off the local mark ring \(this does not affect the global
mark ring\).  Use \\[pop-global-mark] to jump to a mark off the global
mark ring \(see `pop-global-mark'\).

Repeating the \\[set-mark-command] command without the prefix jumps to
the next position off the local (or global) mark ring.

With a double \\[universal-argument] prefix argument, e.g. \\[universal-argument] \
\\[universal-argument] \\[set-mark-command], unconditionally
set mark where point is.

	(pop-to-mark-command)
      (push-mark-command t)))
   ((eq last-command 'pop-to-mark-command)
    (setq this-command 'pop-to-mark-command)
    (pop-to-mark-command))
   ((and (eq last-command 'pop-global-mark) (not arg))
    (setq this-command 'pop-global-mark)
    (pop-global-mark))
   (arg
    (setq this-command 'pop-to-mark-command)
    (pop-to-mark-command))