diff options
| author | Paul Pogonyshev | 2017-03-19 22:54:43 +0100 |
|---|---|---|
| committer | Noam Postavsky | 2017-03-25 19:28:22 -0400 |
| commit | 9278d904af13c3c083defdcbf5fa21260d4457c3 (patch) | |
| tree | cdc71a4d8d060457526c7b4061ba572485909d2b | |
| parent | 5f6ef7cba8200d19198e42a9a76fef1618b5f233 (diff) | |
| download | emacs-9278d904af13c3c083defdcbf5fa21260d4457c3.tar.gz emacs-9278d904af13c3c083defdcbf5fa21260d4457c3.zip | |
* lisp/emacs-lisp/pcase.el (pcase): Comment debug message (Bug#26177).
| -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." | |||
| 175 | ;; (when (gethash (car cases) pcase--memoize-2) | 175 | ;; (when (gethash (car cases) pcase--memoize-2) |
| 176 | ;; (message "pcase-memoize failed because of eq test on %S" | 176 | ;; (message "pcase-memoize failed because of eq test on %S" |
| 177 | ;; (car cases))) | 177 | ;; (car cases))) |
| 178 | (when data | 178 | ;; (when data |
| 179 | (message "pcase-memoize: equal first branch, yet different")) | 179 | ;; (message "pcase-memoize: equal first branch, yet different")) |
| 180 | (let ((expansion (pcase--expand exp cases))) | 180 | (let ((expansion (pcase--expand exp cases))) |
| 181 | (puthash (car cases) `(,exp ,cases ,@expansion) pcase--memoize) | 181 | (puthash (car cases) `(,exp ,cases ,@expansion) pcase--memoize) |
| 182 | ;; (puthash (car cases) `(,exp ,cases ,@expansion) pcase--memoize-1) | 182 | ;; (puthash (car cases) `(,exp ,cases ,@expansion) pcase--memoize-1) |