From: Paul Pogonyshev <pogonyshev@gmail.com>
Date: Sun, 19 Mar 2017 21:54:43 +0000 (+0100)
Subject: * lisp/emacs-lisp/pcase.el (pcase): Comment debug message (Bug#26177).
X-Git-Tag: emacs-26.0.90~522^2~38
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9278d904af13c3c083defdcbf5fa21260d4457c3;p=emacs.git

* lisp/emacs-lisp/pcase.el (pcase): Comment debug message (Bug#26177).
---

diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el
index 289265abf27..fc5474ecc43 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)