Skip to content

Instantly share code, notes, and snippets.

@suzuki

suzuki/toggle-scratch.el

Created January 17, 2013 14:05
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save suzuki/4556126 to your computer and use it in GitHub Desktop.
Save suzuki/4556126 to your computer and use it in GitHub Desktop.
Download ZIP
Toggle current buffer and *scratch* buffer.
Raw
toggle-scratch.el
(defvar toggle-scratch-prev-buffer nil)
(defun toggle-scratch()
"go to *scratch* buffer"
(interactive)
(if (not (string= "*scratch*" (buffer-name)))
(progn
(setq toggle-scratch-prev-buffer (buffer-name))
(switch-to-buffer "*scratch*"))
(switch-to-buffer toggle-scratch-prev-buffer)))
(global-set-key (kbd "C-'") 'toggle-scratch)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment