scip/autoscratch
1
0
Fork 0
mirror of https://codeberg.org/scip/autoscratch.git synced 2025-12-16 20:10:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

avoid renaming self, which happened from time to time

Browse Source
This commit is contained in:
Thomas von Dein
2017-07-30 14:04:01 +02:00
parent 82c1d1be3f
commit 9c602ea4e5
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
autoscratch-mode.el
View File

@@ -134,13 +134,14 @@ New name is '*autoscratch-<new-major-mode><N>*
Executes `autoscratch-rename-hook' afterwards."
(interactive)
(rename-buffer
(generate-new-buffer-name
(format "*%s-scratch*"
(replace-regexp-in-string
"-mode" ""
(format "%s" major-mode))))
(run-hooks 'autoscratch-rename-hook)))
(unless (eq major-mode "autoscratch-mode")
(rename-buffer
(generate-new-buffer-name
(format "*%s-scratch*"
(replace-regexp-in-string
"-mode" ""
(format "%s" major-mode))))
(run-hooks 'autoscratch-rename-hook))))
(defun autoscratch-buffer ()
"Create and switch to a new autoscratch buffer."