+2011-07-13 Chong Yidong <cyd@stupidchicken.com>
+
+ * simple.el (blink-matching-open): Make the error message from the
+ last change less verbose.
+
2011-07-13 Dan Nicolaescu <dann@ics.uci.edu>
* font-lock.el (font-lock-comment-face): Use the high contrast
(when (and (not (bobp))
blink-matching-paren)
(let* ((oldpos (point))
- (limit-message "")
(message-log-max nil) ; Don't log messages about paren matching.
(blinkpos
(save-excursion
(save-restriction
- (when blink-matching-paren-distance
- (let ((start (- (point) blink-matching-paren-distance)))
- (when (> start (minibuffer-prompt-end))
- (setq limit-message " within the limit"))
- (narrow-to-region
- (max (minibuffer-prompt-end) ;(point-min) unless minibuf.
- start)
- oldpos)))
+ (if blink-matching-paren-distance
+ (narrow-to-region
+ (max (minibuffer-prompt-end) ;(point-min) unless minibuf.
+ (- (point) blink-matching-paren-distance))
+ oldpos))
(let ((parse-sexp-ignore-comments
(and parse-sexp-ignore-comments
(not blink-matching-paren-dont-ignore-comments))))
(mismatch
(if blinkpos
(if (minibufferp)
- (minibuffer-message "Mismatched parentheses%s" limit-message)
- (message "Mismatched parentheses%s" limit-message))
+ (minibuffer-message "Mismatched parentheses")
+ (message "Mismatched parentheses"))
(if (minibufferp)
- (minibuffer-message "Unmatched parenthesis%s" limit-message)
- (message "Unmatched parenthesis%s" limit-message))))
+ (minibuffer-message "No matching parenthesis found")
+ (message "No matching parenthesis found"))))
((not blinkpos) nil)
((pos-visible-in-window-p blinkpos)
;; Matching open within window, temporarily move to blinkpos but only