aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1996-10-08 21:35:03 +0000
committerRichard M. Stallman1996-10-08 21:35:03 +0000
commit0565d3079ac6c86a0680d533f4dbe70df86d5597 (patch)
tree4f0fc85922c11685cd405d117a5805b40b23854e
parent91c6fd0ccf4b9459fac09ef274c9c31124076ec5 (diff)
downloademacs-0565d3079ac6c86a0680d533f4dbe70df86d5597.tar.gz
emacs-0565d3079ac6c86a0680d533f4dbe70df86d5597.zip
(line-move): Ignore invisibility in `move-to-column'.
(universal-argument): Doc fix.
-rw-r--r--lisp/simple.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index fe5c4cd3218..5f45ded7224 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -980,7 +980,9 @@ Digits or minus sign following \\[universal-argument] make up the numeric argume
980\\[universal-argument] following the digits or minus sign ends the argument. 980\\[universal-argument] following the digits or minus sign ends the argument.
981\\[universal-argument] without digits or minus sign provides 4 as argument. 981\\[universal-argument] without digits or minus sign provides 4 as argument.
982Repeating \\[universal-argument] without digits or minus sign 982Repeating \\[universal-argument] without digits or minus sign
983 multiplies the argument by 4 each time." 983 multiplies the argument by 4 each time.
984For some commands, just \\[universal-argument] by itself serves as a flag
985which is different in effect from any particular numeric argument."
984 (interactive) 986 (interactive)
985 (setq prefix-arg (list 4)) 987 (setq prefix-arg (list 4))
986 (setq universal-argument-num-events (length (this-command-keys))) 988 (setq universal-argument-num-events (length (this-command-keys)))
@@ -1789,7 +1791,8 @@ Outline mode sets this.")
1789 (goto-char (previous-single-property-change (point) 'invisible)) 1791 (goto-char (previous-single-property-change (point) 'invisible))
1790 (goto-char (previous-overlay-change (point))))) 1792 (goto-char (previous-overlay-change (point)))))
1791 (setq arg (1+ arg)))) 1793 (setq arg (1+ arg))))
1792 (move-to-column (or goal-column temporary-goal-column))) 1794 (let ((buffer-invisibility-spec nil))
1795 (move-to-column (or goal-column temporary-goal-column))))
1793 ;; Remember where we moved to, go back home, 1796 ;; Remember where we moved to, go back home,
1794 ;; then do the motion over again 1797 ;; then do the motion over again
1795 ;; in just one step, with intangibility and point-motion hooks 1798 ;; in just one step, with intangibility and point-motion hooks