emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 9278d90: * lisp/emacs-lisp/pcase.el (pcase): Commen


From: Noam Postavsky
Subject: [Emacs-diffs] master 9278d90: * lisp/emacs-lisp/pcase.el (pcase): Comment debug message (Bug#26177).
Date: Sat, 25 Mar 2017 19:28:05 -0400 (EDT)

branch: master
commit 9278d904af13c3c083defdcbf5fa21260d4457c3
Author: Paul Pogonyshev <address@hidden>
Commit: Noam Postavsky <address@hidden>

    * lisp/emacs-lisp/pcase.el (pcase): Comment debug message (Bug#26177).
---
 lisp/emacs-lisp/pcase.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el
index 289265a..fc5474e 100644
--- a/lisp/emacs-lisp/pcase.el
+++ b/lisp/emacs-lisp/pcase.el
@@ -175,8 +175,8 @@ Emacs Lisp manual for more information and examples."
       ;; (when (gethash (car cases) pcase--memoize-2)
       ;;   (message "pcase-memoize failed because of eq test on %S"
       ;;            (car cases)))
-      (when data
-        (message "pcase-memoize: equal first branch, yet different"))
+      ;; (when data
+      ;;   (message "pcase-memoize: equal first branch, yet different"))
       (let ((expansion (pcase--expand exp cases)))
         (puthash (car cases) `(,exp ,cases ,@expansion) pcase--memoize)
         ;; (puthash (car cases) `(,exp ,cases ,@expansion) pcase--memoize-1)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]