Mercurial > emacs

changeset 10949:99c9f475a355

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(line-move-ignore-invisible): New variable. (line-move): If that var is set, use vertical-motion. Skip any extra invis chars beyond where vertical-motion stops.
author Richard M. Stallman <rms@gnu.org>
date Fri, 10 Mar 1995 03:27:46 +0000
parents 2e151c5d8485
children d1990c517cc9
files lisp/simple.el
diffstat 1 files changed, 23 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Thu Mar 09 03:05:51 1995 +0000
+++ b/lisp/simple.el	Fri Mar 10 03:27:46 1995 +0000
@@ -1569,6 +1569,10 @@
 at the start of current run of vertical motion commands.
 When the `track-eol' feature is doing its job, the value is 9999.")
 
+(defvar line-move-ignore-invisible nil
+  "*Non-nil means \\[next-line] and \\[previous-line] ignore invisible lines.
+Outline mode sets this.")
+
 (defun line-move (arg)
   (if (not (or (eq last-command 'next-line)
 	       (eq last-command 'previous-line)))
@@ -1579,7 +1583,9 @@
 		     (or (not (bolp)) (eq last-command 'end-of-line)))
 		9999
 	      (current-column))))
-  (if (not (integerp selective-display))
+  (if (and (not (integerp selective-display))
+	   (not line-move-ignore-invisible))
+      ;; Use just newline characters.
       (or (if (> arg 0)
 	      (progn (if (> arg 1) (forward-line (1- arg)))
 		     ;; This way of moving forward ARG lines
@@ -1598,11 +1604,27 @@
       (end-of-line)
       (and (zerop (vertical-motion 1))
 	   (signal 'end-of-buffer nil))
+      ;; If the following character is currently invisible,
+      ;; skip all characters with that same `invisible' property value.
+      (while (and (not (eobp))
+		  (let ((prop
+			 (get-char-property (point) 'invisible)))
+		    (if (eq buffer-invisibility-spec t)
+			prop
+		      (memq prop buffer-invisibility-spec))))
+	(goto-char (next-single-property-change (point) 'invisible)))
       (setq arg (1- arg)))
     (while (< arg 0)
       (beginning-of-line)
       (and (zerop (vertical-motion -1))
 	   (signal 'beginning-of-buffer nil))
+      (while (and (not (bobp))
+		  (let ((prop
+			 (get-char-property (point) 'invisible)))
+		    (if (eq buffer-invisibility-spec t)
+			prop
+		      (memq prop buffer-invisibility-spec))))
+	(goto-char (previous-single-property-change (point) 'invisible)))
       (setq arg (1+ arg))))
   (move-to-column (or goal-column temporary-goal-column))
   nil)