Skip to content

Instantly share code, notes, and snippets.

@schani

schani/gist:452910

Created June 25, 2010 14:23
Show Gist options
  • Save schani/452910 to your computer and use it in GitHub Desktop.
Save schani/452910 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.el
(defun make-bertl-untitled-name (i)
(concat "untitled-" (number-to-string i)))
(defun bertl-switch-to-untitled-buffer ()
(interactive)
(let ((index 0))
(while (get-buffer (make-bertl-untitled-name index))
(setq index (1+ index)))
(bertl-switch-to-buffer (make-bertl-untitled-name index))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment