emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/simple.el


From: Kim F. Storm
Subject: [Emacs-diffs] Changes to emacs/lisp/simple.el
Date: Mon, 24 Mar 2003 05:58:17 -0500

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.594 emacs/lisp/simple.el:1.595
*** emacs/lisp/simple.el:1.594  Fri Mar 21 18:49:23 2003
--- emacs/lisp/simple.el        Mon Mar 24 05:58:17 2003
***************
*** 2424,2429 ****
--- 2424,2438 ----
    :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\)."
***************
*** 2457,2464 ****
  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
--- 2466,2475 ----
  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
***************
*** 2470,2485 ****
    (if (eq transient-mark-mode 'lambda)
        (setq transient-mark-mode nil))
    (cond
     ((not (eq this-command 'set-mark-command))
      (if arg
        (pop-to-mark-command)
        (push-mark-command t)))
-    ((and (consp arg) (> (prefix-numeric-value arg) 4))
-     (push-mark-command nil))
     ((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
--- 2481,2497 ----
    (if (eq transient-mark-mode 'lambda)
        (setq transient-mark-mode nil))
    (cond
+    ((and (consp arg) (> (prefix-numeric-value arg) 4))
+     (push-mark-command nil))
     ((not (eq this-command 'set-mark-command))
      (if arg
        (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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]