Mercurial > emacs

changeset 8006:6e58b282df42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scroll-other-window-down): New command. (blink-matching-open): Use matching-paren.
author Richard M. Stallman <rms@gnu.org>
date Wed, 22 Jun 1994 05:16:22 +0000
parents 12f59aa8e26d
children 5b6bbe9478b5
files lisp/simple.el
diffstat 1 files changed, 11 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Wed Jun 22 04:40:17 1994 +0000
+++ b/lisp/simple.el	Wed Jun 22 05:16:22 1994 +0000
@@ -1695,6 +1695,16 @@
 ;;  (interactive "P")
 ;;  (backward-char arg)
 ;;  (hscroll-point-visible))
+
+(defun scroll-other-window-down (lines)
+  "Scroll the \"other window\" down."
+  (interactive "P")
+  (scroll-other-window
+   ;; Just invert the argument's meaning.
+   ;; We can do that without knowing which window it will be.
+   (if (eq lines '-) nil
+     (if (null lines) '-
+       (- (prefix-numeric-value lines))))))
 
 (defun transpose-chars (arg)
   "Interchange characters around point, moving forward one character.
@@ -2329,10 +2339,7 @@
 			     ?\$)
 		(setq mismatch
 		      (/= (char-after (1- oldpos))
-			  (logand (lsh (aref (syntax-table)
-					     (char-after blinkpos))
-				       -8)
-				  255))))
+			  (matching-paren (char-after blinkpos)))))
 	   (if mismatch (setq blinkpos nil))
 	   (if blinkpos
 	       (progn