From unknown Wed Jun 25 05:41:07 2025 X-Loop: help-debbugs@gnu.org Subject: bug#13467: 24.3.50; Problem with `advice' show-paren-function Resent-From: nyc4bos@aol.com Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 16 Jan 2013 22:24:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 13467 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 13467@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.13583750302132 (code B ref -1); Wed, 16 Jan 2013 22:24:02 +0000 Received: (at submit) by debbugs.gnu.org; 16 Jan 2013 22:23:50 +0000 Received: from localhost ([127.0.0.1]:35755 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TvbOf-0000YK-CS for submit@debbugs.gnu.org; Wed, 16 Jan 2013 17:23:50 -0500 Received: from eggs.gnu.org ([208.118.235.92]:54993) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TvbOc-0000YC-3W for submit@debbugs.gnu.org; Wed, 16 Jan 2013 17:23:47 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TvbNx-0006oo-QZ for submit@debbugs.gnu.org; Wed, 16 Jan 2013 17:23:08 -0500 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM, RCVD_IN_DNSWL_NONE, RP_MATCHES_RCVD, T_DKIM_INVALID autolearn=unavailable version=3.3.2 Received: from lists.gnu.org ([208.118.235.17]:43777) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TvbNx-0006oj-NA for submit@debbugs.gnu.org; Wed, 16 Jan 2013 17:23:05 -0500 Received: from eggs.gnu.org ([208.118.235.92]:38106) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TvbNu-0007wG-Ru for bug-gnu-emacs@gnu.org; Wed, 16 Jan 2013 17:23:05 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TvbNs-0006o6-1P for bug-gnu-emacs@gnu.org; Wed, 16 Jan 2013 17:23:02 -0500 Received: from imr-ma03.mx.aol.com ([64.12.206.41]:64090) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TvbNr-0006nt-Sv for bug-gnu-emacs@gnu.org; Wed, 16 Jan 2013 17:22:59 -0500 Received: from mtaout-db02.r1000.mx.aol.com (mtaout-db02.r1000.mx.aol.com [172.29.51.194]) by imr-ma03.mx.aol.com (Outbound Mail Relay) with ESMTP id 046961C00012E for ; Wed, 16 Jan 2013 17:22:59 -0500 (EST) Received: from RPLSBCAPC02 (unknown [63.117.244.126]) (using TLSv1 with cipher DHE-RSA-AES128-SHA (128/128 bits)) (No client certificate requested) by mtaout-db02.r1000.mx.aol.com (MUA/Third Party Client Interface) with ESMTPSA id 11132E0000A8 for ; Wed, 16 Jan 2013 17:22:58 -0500 (EST) From: nyc4bos@aol.com Date: Wed, 16 Jan 2013 17:22:56 -0500 Message-ID: User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (windows-nt) MIME-Version: 1.0 Content-Type: text/plain x-aol-global-disposition: G DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=mx.aol.com; s=20121107; t=1358374978; bh=ylHmMs0rKY2B0HD66tD0idd90sLshrpMXFn0kRn5Zsc=; h=From:To:Subject:Message-ID:Date:MIME-Version:Content-Type; b=tRA5CBQ4/Q27pXe4ZVpy6sFFXRuN6VXtgGff8E2Fk0Rv4hk++y8ucojn3CSHqnhd1 MQXnWhBH1YwqHcH++5nV9z9bfq4e7/ZskdAqnlweDkAQg/Tn+OBk6HGQX0Ky8rp1j9 yFBf1VrmyuKqgmLyDxIKTH3gMTsQiVEGPbuAE2jY= X-AOL-SCOLL-SCORE: 0:2:470128224:93952408 X-AOL-SCOLL-URL_COUNT: 0 x-aol-sid: 3039ac1d33c250f72841252f X-AOL-IP: 63.117.244.126 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.4.x-2.6.x [generic] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 208.118.235.17 X-Spam-Score: -6.1 (------) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.1 (------) Hi, While trying to send an email message ^C^C `(message-send-and-exit)', I got the following error message in the echo area: Error in timer: (wrong-type-argument characterp nil) I was not able to send the message and could only abort (^G). I then got a backtrace which I have included (below). I suspect this is because of the changes to `advice'. Here is 'advice' function that I am using: (defadvice show-paren-function (after show-matching-paren-offscreen activate) "If the matching paren is offscreen, show the matching line in the echo area. Has no effect if the character before point is not of the syntax class ')'." (interactive) (let ((matching-text nil)) ;; Only call `blink-matching-open' if the character before point ;; is a close parentheses type character. Otherwise, there's not ;; really any point, and `blink-matching-open' would just echo ;; "Mismatched parentheses", which gets really annoying. (if (char-equal (char-syntax (char-before (point))) ?\)) (setq matching-text (blink-matching-open))) (if (not (null matching-text)) (message matching-text)))) Thanks. Debugger entered--Lisp error: (wrong-type-argument characterp nil) char-syntax(nil) (char-equal (char-syntax (char-before (point))) 41) (if (char-equal (char-syntax (char-before (point))) 41) (setq matching-text (blink-matching-open))) (let ((matching-text nil)) (if (char-equal (char-syntax (char-before (point))) 41) (setq matching-text (blink-matching-open))) (if (not (null matching-text)) (message matching-text))) (let (ad-return-value) (setq ad-return-value (with-no-warnings (funcall ad--addoit-function))) (let ((matching-text nil)) (if (char-equal (char-syntax (char-before (point))) 41) (setq matching-text (blink-matching-open))) (if (not (null matching-text)) (message matching-text))) ad-return-value) ad-Advice-show-paren-function(#[nil "\203\336`\306\307`S!!\310=\203 In GNU Emacs 24.3.50.1 (i386-mingw-nt6.1.7601) of 2013-01-15 on ODIEONE Bzr revision: 111532 dmantipov@yandex.ru-20130115101431-o6w1qeqwqcmyxmi9 Windowing system distributor `Microsoft Corp.', version 6.1.7601 Configured using: `configure --with-gcc (4.7) --no-opt --enable-checking --cflags -IC:/Devel/emacs/build/include --ldflags -LC:/Devel/emacs/build/lib' Important settings: value of $LANG: en_US locale-coding-system: cp1252 default enable-multibyte-characters: t Major mode: Lisp Interaction Minor modes in effect: tooltip-mode: t mouse-wheel-mode: t tool-bar-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t line-number-mode: t transient-mark-mode: t Recent input: Recent messages: For information about GNU Emacs and the GNU system, type C-h C-a. Load-path shadows: None found. Features: (shadow sort gnus-util mail-extr emacsbug message format-spec rfc822 mml easymenu mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils time-date tooltip ediff-hook vc-hooks lisp-float-type mwheel dos-w32 ls-lisp w32-common-fns disp-table w32-win w32-vars tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment lisp-mode register page menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer button faces cus-face macroexp files text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote make-network-process w32notify w32 multi-tty emacs) From unknown Wed Jun 25 05:41:07 2025 X-Loop: help-debbugs@gnu.org Subject: bug#13467: 24.3.50; Problem with `advice' show-paren-function Resent-From: Glenn Morris Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 16 Jan 2013 22:41:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 13467 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: notabug To: nyc4bos@aol.com Cc: 13467@debbugs.gnu.org Received: via spool by 13467-submit@debbugs.gnu.org id=B13467.13583760143751 (code B ref 13467); Wed, 16 Jan 2013 22:41:02 +0000 Received: (at 13467) by debbugs.gnu.org; 16 Jan 2013 22:40:14 +0000 Received: from localhost ([127.0.0.1]:35769 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TvbeY-0000yR-Jq for submit@debbugs.gnu.org; Wed, 16 Jan 2013 17:40:14 -0500 Received: from fencepost.gnu.org ([208.118.235.10]:36720) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TvbeV-0000yJ-L4 for 13467@debbugs.gnu.org; Wed, 16 Jan 2013 17:40:12 -0500 Received: from rgm by fencepost.gnu.org with local (Exim 4.71) (envelope-from ) id 1Tvbdt-0006ZN-M3; Wed, 16 Jan 2013 17:39:33 -0500 From: Glenn Morris References: X-Spook: Merlin AMEMB anarchy Delta Force Commecen BCCI condor X-Ran: 0dpe^wx@2H*gS>5m&,iI4pem/`wj_}W:?T8R@XV{]|&$pZm';8X~0}~JW41C9Lq5.a8_9- X-Hue: red X-Attribution: GM Date: Wed, 16 Jan 2013 17:39:33 -0500 In-Reply-To: (nyc4bos@aol.com's message of "Wed, 16 Jan 2013 17:22:56 -0500") Message-ID: <6dr4lkiwgq.fsf@fencepost.gnu.org> User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Spam-Score: -4.2 (----) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -5.0 (-----) nyc4bos@aol.com wrote: > (if (char-equal (char-syntax (char-before (point))) ?\)) What do you expect this do if called eg at point-min? Maybe fail with wrong-type-argument characterp nil? From unknown Wed Jun 25 05:41:07 2025 X-Loop: help-debbugs@gnu.org Subject: bug#13467: 24.3.50; Problem with `advice' show-paren-function Resent-From: "Drew Adams" Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 16 Jan 2013 22:48:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 13467 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: notabug To: "'Glenn Morris'" , Cc: 13467@debbugs.gnu.org Received: via spool by 13467-submit@debbugs.gnu.org id=B13467.13583764434446 (code B ref 13467); Wed, 16 Jan 2013 22:48:01 +0000 Received: (at 13467) by debbugs.gnu.org; 16 Jan 2013 22:47:23 +0000 Received: from localhost ([127.0.0.1]:35773 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TvblT-00019e-Cj for submit@debbugs.gnu.org; Wed, 16 Jan 2013 17:47:23 -0500 Received: from aserp1040.oracle.com ([141.146.126.69]:41310) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TvblS-00019Y-30 for 13467@debbugs.gnu.org; Wed, 16 Jan 2013 17:47:22 -0500 Received: from ucsinet21.oracle.com (ucsinet21.oracle.com [156.151.31.93]) by aserp1040.oracle.com (Sentrion-MTA-4.2.2/Sentrion-MTA-4.2.2) with ESMTP id r0GMkgoY026830 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK); Wed, 16 Jan 2013 22:46:42 GMT Received: from acsmt357.oracle.com (acsmt357.oracle.com [141.146.40.157]) by ucsinet21.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id r0GMkfUD011642 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Wed, 16 Jan 2013 22:46:41 GMT Received: from abhmt116.oracle.com (abhmt116.oracle.com [141.146.116.68]) by acsmt357.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id r0GMkfnn013989; Wed, 16 Jan 2013 16:46:41 -0600 Received: from dradamslap1 (/130.35.178.8) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Wed, 16 Jan 2013 14:46:40 -0800 From: "Drew Adams" References: <6dr4lkiwgq.fsf@fencepost.gnu.org> Date: Wed, 16 Jan 2013 14:46:39 -0800 Message-ID: MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Mailer: Microsoft Office Outlook 11 In-Reply-To: <6dr4lkiwgq.fsf@fencepost.gnu.org> Thread-Index: Ac30On3ULgd097JKTKqp3ia9f2C6LQAACdeA X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157 X-Source-IP: ucsinet21.oracle.com [156.151.31.93] X-Spam-Score: -1.5 (-) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -2.3 (--) > > (if (char-equal (char-syntax (char-before (point))) ?\)) > > What do you expect this do if called eg at point-min? > Maybe fail with wrong-type-argument characterp nil? E.g., (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))) From debbugs-submit-bounces@debbugs.gnu.org Wed Jan 16 17:48:50 2013 Received: (at control) by debbugs.gnu.org; 16 Jan 2013 22:48:51 +0000 Received: from localhost ([127.0.0.1]:35779 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1Tvbms-0001C5-Ls for submit@debbugs.gnu.org; Wed, 16 Jan 2013 17:48:50 -0500 Received: from fencepost.gnu.org ([208.118.235.10]:36839) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1Tvbmr-0001Bv-5l for control@debbugs.gnu.org; Wed, 16 Jan 2013 17:48:49 -0500 Received: from rgm by fencepost.gnu.org with local (Exim 4.71) (envelope-from ) id 1TvbmF-0007bf-Kw for control@debbugs.gnu.org; Wed, 16 Jan 2013 17:48:11 -0500 Date: Wed, 16 Jan 2013 17:48:11 -0500 Message-Id: Subject: control message for bug 13467 To: X-Mailer: mail (GNU Mailutils 2.1) From: Glenn Morris X-Spam-Score: -4.2 (----) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -4.2 (----) close 13467 From unknown Wed Jun 25 05:41:07 2025 X-Loop: help-debbugs@gnu.org Subject: bug#13467: 24.3.50; Problem with `advice' show-paren-function Resent-From: Stefan Monnier Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 16 Jan 2013 23:39:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 13467 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: notabug To: "Drew Adams" Cc: 'Glenn Morris' , nyc4bos@aol.com, 13467@debbugs.gnu.org Received: via spool by 13467-submit@debbugs.gnu.org id=B13467.135837952412814 (code B ref 13467); Wed, 16 Jan 2013 23:39:02 +0000 Received: (at 13467) by debbugs.gnu.org; 16 Jan 2013 23:38:44 +0000 Received: from localhost ([127.0.0.1]:35798 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TvcZ9-0003Kc-Kf for submit@debbugs.gnu.org; Wed, 16 Jan 2013 18:38:44 -0500 Received: from ironport2-out.teksavvy.com ([206.248.154.182]:19662) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TvcZ3-0003KP-Nn for 13467@debbugs.gnu.org; Wed, 16 Jan 2013 18:38:39 -0500 X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: AhoHAG6Zu09FpZpV/2dsb2JhbABEgXuuTYNJgQiCFgEFViMQCzQSFBgNJIghugmQRAOIQppxgViDBw X-IronPort-AV: E=Sophos;i="4.75,637,1330923600"; d="scan'208";a="212739597" Received: from 69-165-154-85.dsl.teksavvy.com (HELO pastel.home) ([69.165.154.85]) by ironport2-out.teksavvy.com with ESMTP/TLS/ADH-AES256-SHA; 16 Jan 2013 18:37:59 -0500 Received: by pastel.home (Postfix, from userid 20848) id 1389159537; Wed, 16 Jan 2013 18:37:58 -0500 (EST) From: Stefan Monnier Message-ID: References: <6dr4lkiwgq.fsf@fencepost.gnu.org> Date: Wed, 16 Jan 2013 18:37:58 -0500 In-Reply-To: (Drew Adams's message of "Wed, 16 Jan 2013 14:46:39 -0800") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -1.9 (-) > (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" From unknown Wed Jun 25 05:41:07 2025 X-Loop: help-debbugs@gnu.org Subject: bug#13467: 24.3.50; Problem with `advice' show-paren-function Resent-From: "Drew Adams" Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 17 Jan 2013 00:06:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 13467 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: notabug To: "'Stefan Monnier'" Cc: 'Glenn Morris' , nyc4bos@aol.com, 13467@debbugs.gnu.org Received: via spool by 13467-submit@debbugs.gnu.org id=B13467.135838113415477 (code B ref 13467); Thu, 17 Jan 2013 00:06:01 +0000 Received: (at 13467) by debbugs.gnu.org; 17 Jan 2013 00:05:34 +0000 Received: from localhost ([127.0.0.1]:35838 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1Tvcz8-00041a-BW for submit@debbugs.gnu.org; Wed, 16 Jan 2013 19:05:34 -0500 Received: from aserp1040.oracle.com ([141.146.126.69]:45785) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1Tvcz6-00041S-9u for 13467@debbugs.gnu.org; Wed, 16 Jan 2013 19:05:33 -0500 Received: from ucsinet21.oracle.com (ucsinet21.oracle.com [156.151.31.93]) by aserp1040.oracle.com (Sentrion-MTA-4.2.2/Sentrion-MTA-4.2.2) with ESMTP id r0H04nlJ023493 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK); Thu, 17 Jan 2013 00:04:50 GMT Received: from acsmt358.oracle.com (acsmt358.oracle.com [141.146.40.158]) by ucsinet21.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id r0H04mGW026700 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Thu, 17 Jan 2013 00:04:49 GMT Received: from abhmt112.oracle.com (abhmt112.oracle.com [141.146.116.64]) by acsmt358.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id r0H04lcB010089; Wed, 16 Jan 2013 18:04:47 -0600 Received: from dradamslap1 (/130.35.178.8) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Wed, 16 Jan 2013 16:04:46 -0800 From: "Drew Adams" References: <6dr4lkiwgq.fsf@fencepost.gnu.org> Date: Wed, 16 Jan 2013 16:04:45 -0800 Message-ID: MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Mailer: Microsoft Office Outlook 11 In-Reply-To: Thread-Index: Ac30QoYxX4llgGHJT2yg6GazmCw9zwAAp4tQ X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157 X-Source-IP: ucsinet21.oracle.com [156.151.31.93] X-Spam-Score: -1.5 (-) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -2.3 (--) > > (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" Yes. Aka: (let* ((cb (char-before (point))) (matching-text (and cb (char-equal (char-syntax cb) ?\) ) (blink-matching-open)))) (when matching-text (message matching-text))) -- Drew "use `and' for value; use `when' for effect", who tried to keep things close to the OP code, to start