[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el |
Date: |
Fri, 20 Jan 2006 01:22:07 +0000 |
Index: emacs/lisp/simple.el
diff -u emacs/lisp/simple.el:1.783 emacs/lisp/simple.el:1.784
--- emacs/lisp/simple.el:1.783 Thu Jan 5 15:59:41 2006
+++ emacs/lisp/simple.el Fri Jan 20 01:22:07 2006
@@ -3185,8 +3185,9 @@
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.
+If `set-mark-command-repeat-pop' is non-nil, repeating
+the \\[set-mark-command] command with no prefix pops the next position
+off the local (or global) mark ring and jumps there.
With a double \\[universal-argument] prefix argument, e.g.
\\[universal-argument] \
\\[universal-argument] \\[set-mark-command], unconditionally
@@ -3734,7 +3735,13 @@
(or arg (setq arg 1))
(if (/= arg 1)
(line-move (1- arg) t))
- (beginning-of-line 1)
+
+ ;; Move to beginning-of-line, ignoring fields and invisibles.
+ (skip-chars-backward "^\n")
+ (while (and (not (bobp)) (line-move-invisible-p (1- (point))))
+ (goto-char (previous-char-property-change (1- (point))))
+ (skip-chars-backward "^\n"))
+
(let ((orig (point)))
(vertical-motion 0)
(if (/= orig (point))
@@ -5278,7 +5285,13 @@
Select the new buffer in another window.
Optional second arg NORECORD non-nil means do not put this buffer at
the front of the list of recently selected ones."
- (interactive "bClone buffer in other window: ")
+ (interactive
+ (progn
+ (if (get major-mode 'no-clone-indirect)
+ (error "Cannot indirectly clone a buffer in %s mode" mode-name))
+ (list (if current-prefix-arg
+ (read-string "BName of indirect buffer: "))
+ t)))
(let ((pop-up-windows t))
(set-buffer buffer)
(clone-indirect-buffer nil t norecord)))