From 7492f5a652acc178f1810cc160136a93414ee861 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 22 Jun 1994 05:16:22 +0000 Subject: [PATCH] (scroll-other-window-down): New command. (blink-matching-open): Use matching-paren. --- lisp/simple.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index e91ed2a51b8..65742b68c6f 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1695,6 +1695,16 @@ If this is zero, point is always centered after it moves off frame.") ;; (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 @@ in the mode line." ?\$) (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 -- 2.39.5