HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0b6ec58
)
(move-beginning-of-line): Move to beginning of buffer
author
Kim F. Storm
<storm@cua.dk>
Thu, 17 Mar 2005 15:33:56 +0000
(15:33 +0000)
committer
Kim F. Storm
<storm@cua.dk>
Thu, 17 Mar 2005 15:33:56 +0000
(15:33 +0000)
line, as well as beginning of screen line.
lisp/simple.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/simple.el
b/lisp/simple.el
index
e154d56
..
1a76c1a
100644
(file)
--- a/
lisp/simple.el
+++ b/
lisp/simple.el
@@
-3536,9
+3536,11
@@
boundaries bind `inhibit-field-text-motion' to t."
(or arg (setq arg 1))
(if (/= arg 1)
(line-move (1- arg) t))
+ (beginning-of-line 1)
(let ((orig (point)))
(vertical-motion 0)
- (goto-char (constrain-to-field (point) orig (/= arg 1) t nil))))
+ (if (/= orig (point))
+ (goto-char (constrain-to-field (point) orig (/= arg 1) t nil)))))
;;; Many people have said they rarely use this feature, and often type