diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-09-27 08:20:34 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-09-30 22:34:04 -0700 |
commit | b375e105f2e5560eedbab8dde802cf19f822c845 (patch) | |
tree | 7dd8cda245455997de122d218fa99da904e604bc | |
parent | ab1dbe94462d611ce482d3d52ddd4262bdd69228 (diff) | |
download | dotfiles-b375e105f2e5560eedbab8dde802cf19f822c845.tar.gz |
cl-case quotation fixes
-rw-r--r-- | .emacs.d/init.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 559ed09f..ed128448 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -4610,22 +4610,22 @@ We don't use the FILES parameter in the entry for \"d\" in (defun spw/start-gud () (interactive) (cl-case major-mode - ('c-mode + (c-mode (call-interactively 'gdb) (setq mouse-autoselect-window t)) - ('cperl-mode + (cperl-mode (call-interactively 'perldb)) - ('python-mode + (python-mode (call-interactively 'pdb)))) (defun spw/quit-gud () (interactive) (cl-case (buffer-local-value 'gud-minor-mode gud-comint-buffer) - ('gdbmi + (gdbmi (gud-basic-call "quit")) - ('perldb + (perldb (gud-basic-call "q")) - ('pdb + (pdb (gud-basic-call "q")))) ;; Supports only a single debugging session per Emacs instance, i.e., don't |