From c38183a12b1f6c00b4cf197e5ff2ded470a8e326 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 3 Jan 2021 00:43:04 +0100 Subject: Use pcase. --- guile-studio-configure.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm index 2c32f0b..b66674a 100644 --- a/guile-studio-configure.scm +++ b/guile-studio-configure.scm @@ -393,15 +393,14 @@ with the " (define-key mode-line-buffer-identification-keymap (vector 'mode-line 'mouse-3) nil) ;; Context menu on right click. - (require 'cl-macs) (defun context-menu () (let ((menu (make-sparse-keymap))) - (cl-case major-mode - (geiser-repl-mode + (pcase major-mode + ('geiser-repl-mode (define-key menu (vector 'insert-image) '("Insert image" . geiser--guile-picture-language--pict-from-file)) menu) - (scheme-mode + ('scheme-mode (define-key menu (vector 'switch-to-repl) '("Switch to REPL" . switch-to-geiser)) (define-key menu (vector 'eval-buffer) -- cgit v1.2.3