diff options
| author | Paul Pogonyshev <pogonyshev@gmail.com> | 2017-03-19 22:54:43 +0100 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-03-25 19:28:22 -0400 |
| commit | 9278d904af13c3c083defdcbf5fa21260d4457c3 (patch) | |
| tree | cdc71a4d8d060457526c7b4061ba572485909d2b /lisp/emacs-lisp | |
| parent | 5f6ef7cba8200d19198e42a9a76fef1618b5f233 (diff) | |
| download | emacs-9278d904af13c3c083defdcbf5fa21260d4457c3.tar.gz emacs-9278d904af13c3c083defdcbf5fa21260d4457c3.tar.bz2 emacs-9278d904af13c3c083defdcbf5fa21260d4457c3.zip | |
* lisp/emacs-lisp/pcase.el (pcase): Comment debug message (Bug#26177).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |