diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2018-01-30 21:52:18 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2018-01-30 21:52:18 -0700 |
commit | 782ffaa03097d1cff14f20c71364def9b48f14d7 (patch) | |
tree | 2b24b7e9da544a1130c1afbfa8c86b085d684d6d /.emacs.d/site-lisp | |
parent | cff3892c415286fbd0592ab0def16b03ad923f55 (diff) | |
download | dotfiles-782ffaa03097d1cff14f20c71364def9b48f14d7.tar.gz |
spwd20.el: fix repeated insertion of 'bloodied'
Diffstat (limited to '.emacs.d/site-lisp')
-rw-r--r-- | .emacs.d/site-lisp/spwd20.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/.emacs.d/site-lisp/spwd20.el b/.emacs.d/site-lisp/spwd20.el index 00d97ab5..fafae8b1 100644 --- a/.emacs.d/site-lisp/spwd20.el +++ b/.emacs.d/site-lisp/spwd20.el @@ -197,9 +197,10 @@ the best N of them, e.g., 4d6k3." (when (>= total-damage (/ max-hp 2)) (org-table-goto-column 7) (org-table-end-of-current-cell-content) - (unless (looking-back "|") - (insert "; ")) - (insert "bloodied")))))))) + (unless (looking-back "bloodied") + (unless (looking-back "|") + (insert "; ")) + (insert "bloodied"))))))))) (org-table-align))) (defun org-table-end-of-current-cell-content () |