Commit 1d0e3fc8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(blink-matching-open): Get rid of text props from

the string shown in echo area.  Don't permanently set point.
Some rearrangements.
parent d502fc06
......@@ -4227,18 +4227,19 @@ If nil, search stops at the beginning of the accessible portion of the buffer."
(defun blink-matching-open ()
"Move cursor momentarily to the beginning of the sexp before point."
(interactive)
(and (> (point) (1+ (point-min)))
(when (and (> (point) (1+ (point-min)))
blink-matching-paren
;; Verify an even number of quoting characters precede the close.
(= 1 (logand 1 (- (point)
(save-excursion
(forward-char -1)
(skip-syntax-backward "/\\")
(point)))))
(point))))))
(let* ((oldpos (point))
(blinkpos)
(mismatch)
matching-paren)
blinkpos
message-log-max ; Don't log messages about paren matching.
matching-paren
open-paren-line-string)
(save-excursion
(save-restriction
(if blink-matching-paren-distance
......@@ -4258,27 +4259,31 @@ If nil, search stops at the beginning of the accessible portion of the buffer."
(let ((syntax (syntax-after blinkpos)))
(and (consp syntax)
(eq (syntax-class syntax) 4)
(cdr syntax)))
mismatch
(or (null matching-paren)
(/= (char-after (1- oldpos))
matching-paren))))
(if mismatch (setq blinkpos nil))
(if blinkpos
;; Don't log messages about paren matching.
(let (message-log-max)
(cdr syntax)))))
(cond
((or (null matching-paren)
(/= (char-before oldpos)
matching-paren))
(message "Mismatched parentheses"))
((not blinkpos)
(if (not blink-matching-paren-distance)
(message "Unmatched parenthesis")))
((pos-visible-in-window-p blinkpos)
;; Matching open within window, temporarily move to blinkpos but only
;; if `blink-matching-paren-on-screen' is non-nil.
(when blink-matching-paren-on-screen
(save-excursion
(goto-char blinkpos)
(if (pos-visible-in-window-p)
(and blink-matching-paren-on-screen
(sit-for blink-matching-delay))
(sit-for blink-matching-delay))))
(t
(save-excursion
(goto-char blinkpos)
(message
"Matches %s"
(setq open-paren-line-string
;; Show what precedes the open in its line, if anything.
(if (save-excursion
(skip-chars-backward " \t")
(not (bolp)))
(buffer-substring (progn (beginning-of-line) (point))
(buffer-substring (line-beginning-position)
(1+ blinkpos))
;; Show what follows the open in its line, if anything.
(if (save-excursion
......@@ -4286,7 +4291,7 @@ If nil, search stops at the beginning of the accessible portion of the buffer."
(skip-chars-forward " \t")
(not (eolp)))
(buffer-substring blinkpos
(progn (end-of-line) (point)))
(line-end-position))
;; Otherwise show the previous nonblank line,
;; if there is one.
(if (save-excursion
......@@ -4295,8 +4300,7 @@ If nil, search stops at the beginning of the accessible portion of the buffer."
(concat
(buffer-substring (progn
(skip-chars-backward "\n \t")
(beginning-of-line)
(point))
(line-beginning-position))
(progn (end-of-line)
(skip-chars-backward " \t")
(point)))
......@@ -4304,11 +4308,9 @@ If nil, search stops at the beginning of the accessible portion of the buffer."
"..."
(buffer-substring blinkpos (1+ blinkpos)))
;; There is nothing to show except the char itself.
(buffer-substring blinkpos (1+ blinkpos))))))))
(cond (mismatch
(message "Mismatched parentheses"))
((not blink-matching-paren-distance)
(message "Unmatched parenthesis"))))))))
(buffer-substring blinkpos (1+ blinkpos)))))))
(message "Matches %s"
(substring-no-properties open-paren-line-string))))))))
;Turned off because it makes dbx bomb out.
(setq blink-paren-function 'blink-matching-open)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment