bug#13467: 24.3.50; Problem with `advice' show-paren-function

[Stefan Monnier]

> (let ((matching-text nil)
>       (cb            (char-before (point))))
>   (when (and cb  (char-equal (char-syntax cb) ?\) ))
>     (setq matching-text  (blink-matching-open)))
>   (when matching-text (message matching-text)))

Aka

   (let* ((cb (char-before (point)))
          (matching-text
           (when (and cb  (char-equal (char-syntax cb) ?\) ))
             (blink-matching-open))))
     (when matching-text (message matching-text)))


-- Stefan "always try to give the right value right away"