aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/pcase.el4
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)