diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-05 13:02:33 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-05 13:04:15 -0700 |
| commit | 2178d7a13c1822f2b88e48ddd6720f5b31f95c45 (patch) | |
| tree | 4f65b9af9f28bd9abc04de37290bbfdd34d60a3a | |
| parent | a376691a3184e6f5ee9466b7d27edba30e98ab47 (diff) | |
| download | dotfiles-2178d7a13c1822f2b88e48ddd6720f5b31f95c45.tar.gz | |
case->cl-case
| -rw-r--r-- | .emacs.d/init-spw.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el index 203e14d5..1b1a0bfd 100644 --- a/.emacs.d/init-spw.el +++ b/.emacs.d/init-spw.el @@ -2064,7 +2064,7 @@ mutt's review view, after exiting EDITOR." (defun spw/start-gud () (interactive) - (case major-mode + (cl-case major-mode ('c-mode (call-interactively 'gdb) (setq mouse-autoselect-window t)) @@ -2075,7 +2075,7 @@ mutt's review view, after exiting EDITOR." (defun spw/quit-gud () (interactive) - (case (buffer-local-value 'gud-minor-mode gud-comint-buffer) + (cl-case (buffer-local-value 'gud-minor-mode gud-comint-buffer) ('gdbmi (gud-basic-call "quit")) ('perldb @@ -2098,7 +2098,7 @@ mutt's review view, after exiting EDITOR." (interactive "p") (if (and (boundp 'gud-comint-buffer) (get-buffer-process gud-comint-buffer)) - (case arg + (cl-case arg (4 ;; restart the GUD session, either to debug something else, ;; because we can't seem to set breakpoints anymore (spw/quit-gud) |