summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2020-11-08 14:18:22 -0700
committerSean Whitton <spwhitton@spwhitton.name>2020-11-08 14:18:22 -0700
commit4c7136e33fad8c6549ae9dc01ff83448d583207c (patch)
tree2fac3ce92ce6a6d39f18974ca57f45fe5679a752
parente62aea3c550ee220f0c975da86e0e6d16feae6f9 (diff)
downloadwiki-4c7136e33fad8c6549ae9dc01ff83448d583207c.tar.gz
untabify to fix web view
-rw-r--r--blog/entry/emacs-combined-repeat.mdwn16
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