RE: Not appropriate message for mismatched parens

["Herbert Euler" <herberteuler@hotmail.com>]

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/