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

eval fixes

Browse Source
This commit is contained in:
Thomas von Dein
2017-07-18 15:08:04 +02:00
parent 45abed8373
commit 2d193cbd29
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
autoscratch.el
View File

@@ -173,9 +173,14 @@ This function shall only be called from `autoscratch-triggers-alist'."
;;;; Internal Functions ;;;; Internal Functions
(defun autoscratch--function-p (form)
"Check if FORM is a function."
(if (symbolp form)
(fboundp form)
(functionp form)))
(defun autoscratch--fork-and-rename-current () (defun autoscratch--fork-and-rename-current ()
"Rename buffer and create new autoscratch. "Rename buffer and create new autoscratch.
If `autoscratch-fork-after-trigger' is t, create a If `autoscratch-fork-after-trigger' is t, create a
new autoscratch buffer and rename the current one new autoscratch buffer and rename the current one
to $mode-scratch." to $mode-scratch."
@@ -187,10 +192,11 @@ to $mode-scratch."
(switch-to-buffer cur)))) (switch-to-buffer cur))))
(defun autoscratch--eval-trigger (form) (defun autoscratch--eval-trigger (form)
"Evaluate FORM. "If FORM is a function execute interactively, otherwise evaluate it.
Executes `autoscratch-trigger-hook' after evaluation." Executes `autoscratch-trigger-hook' after evaluation."
(eval form) (if (autoscratch--function-p form)
(funcall-interactively form)
(eval form))
(run-hooks 'autoscratch-post-trigger-hook) (run-hooks 'autoscratch-post-trigger-hook)
(message (format "autoscratch switched to %s" major-mode))) (message (format "autoscratch switched to %s" major-mode)))
@@ -208,7 +214,7 @@ Executes `autoscratch-trigger-hook' after evaluation."
(autoscratch--fork-and-rename-current) (autoscratch--fork-and-rename-current)
;; else: multichar allowed, continue until max ;; else: multichar allowed, continue until max
(when (> (point) autoscratch-trigger-after) (when (> (point) autoscratch-trigger-after)
(eval autoscratch-default-trigger))))) (autoscratch--eval-trigger autoscratch-default-trigger)))))
(defun autoscratch--self-insert-command (N) (defun autoscratch--self-insert-command (N)
"Look for autoscratch trigger, execute if found and call `self-insert-command'." "Look for autoscratch trigger, execute if found and call `self-insert-command'."