RE: Not appropriate message for mismatched parens

[Herbert Euler]

Please, please, please forgive me.  I forgot to delete the `if'.
Please check the following patch.

Regards,
Guanpeng Xu

*** simple.el   Wed Apr 25 19:17:01 2007
--- simple.el.modified  Wed Apr 25 19:15:11 2007
*************** (defun blink-matching-open ()
*** 4483,4495 ****
          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
!             (narrow-to-region (max (minibuffer-prompt-end)
!                                    (- (point) 
blink-matching-paren-distance))
!                               oldpos))
         (condition-case ()
             (let ((parse-sexp-ignore-comments
                    (and parse-sexp-ignore-comments
--- 4483,4499 ----
          blinkpos
          message-log-max  ; Don't log messages about paren matching.
          matching-paren
!          open-paren-line-string
!          open-paren-may-be-outside)
       (save-excursion
       (save-restriction
!         (when blink-matching-paren-distance
!           (setq open-paren-may-be-outside
!                 (< (minibuffer-prompt-end)
!                    (- (point) blink-matching-paren-distance)))
!           (narrow-to-region (max (minibuffer-prompt-end)
!                                  (- (point) 
blink-matching-paren-distance))
!                             oldpos))
         (condition-case ()
             (let ((parse-sexp-ignore-comments
                    (and parse-sexp-ignore-comments
*************** (defun blink-matching-open ()
*** 4510,4519 ****
                    ;; a matching-char info, in which case the two CDRs
                    ;; should match.
                    (eq matching-paren (cdr (syntax-after (1- oldpos))))))
!         (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.
--- 4514,4529 ----
                    ;; a matching-char info, in which case the two CDRs
                    ;; should match.
                    (eq matching-paren (cdr (syntax-after (1- oldpos))))))
!         (if open-paren-may-be-outside
!             (message (concat "Open parenthesis is not found in the region 
"
!                              "restricted by 
`blink-matching-paren-distance'"))
!           (message "Mismatched parentheses")))
        ((not blinkpos)
         (if (not blink-matching-paren-distance)
!             (message "Unmatched parenthesis")
!           (if open-paren-may-be-outside
!               (message (concat "Open parenthesis is not found in the 
region "
!                                "restricted by 
`blink-matching-parent-distance'")))))
        ((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.

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE! 
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/