diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2020-11-08 14:18:22 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-11-08 14:18:22 -0700 |
| commit | 4c7136e33fad8c6549ae9dc01ff83448d583207c (patch) | |
| tree | 2fac3ce92ce6a6d39f18974ca57f45fe5679a752 | |
| parent | e62aea3c550ee220f0c975da86e0e6d16feae6f9 (diff) | |
| download | wiki-4c7136e33fad8c6549ae9dc01ff83448d583207c.tar.gz | |
untabify to fix web view
| -rw-r--r-- | blog/entry/emacs-combined-repeat.mdwn | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/blog/entry/emacs-combined-repeat.mdwn b/blog/entry/emacs-combined-repeat.mdwn index ed530c8..60c6543 100644 --- a/blog/entry/emacs-combined-repeat.mdwn +++ b/blog/entry/emacs-combined-repeat.mdwn @@ -25,13 +25,13 @@ the FSF. Assumes lexical binding is turned on for the file you have this in. (interactive "p") (if-let ((newcmd (nth (1- arg) command-history))) (progn - (add-to-history 'command-history newcmd) - (repeat-message "Repeating %S" newcmd) - (apply #'funcall-interactively - (car newcmd) - (mapcar (lambda (e) (eval e t)) (cdr newcmd)))) + (add-to-history 'command-history newcmd) + (repeat-message "Repeating %S" newcmd) + (apply #'funcall-interactively + (car newcmd) + (mapcar (lambda (e) (eval e t)) (cdr newcmd)))) (if command-history - (error "Argument %d is beyond length of command history" arg) + (error "Argument %d is beyond length of command history" arg) (error "There are no previous complex commands to repeat")))) (let (real-last-repeatable-command) @@ -43,10 +43,10 @@ different meanings for `repeat' and for `spw/repeat-complex-command-immediately', so that might cause surprises." (interactive) (if (eq last-repeatable-command this-command) - (setq last-repeatable-command real-last-repeatable-command) + (setq last-repeatable-command real-last-repeatable-command) (setq real-last-repeatable-command last-repeatable-command)) (if (eq last-repeatable-command (caar command-history)) - (spw/repeat-complex-command-immediately 1) + (spw/repeat-complex-command-immediately 1) (repeat nil)))) ;; `suspend-frame' is bound to both C-x C-z and C-z |