branch: externals/hyperbole
commit 9b7e9254b727090cb7212a3c6c0c3e17d45a7872
Author: Bob Weiner <r...@gnu.org>
Commit: Bob Weiner <r...@gnu.org>
kotl-mode.el - Change '(when arg...)' to proper '(unless arg...)'
---
ChangeLog | 5 +++++
kotl/kotl-mode.el | 26 +++++++++++++-------------
2 files changed, 18 insertions(+), 13 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 74aeab7..f635554 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2021-05-15 Bob Weiner <r...@gnu.org>
+
+* kotl/kotl-mode.el: Change mistaken '(when arg...)' updates to
+ proper '(unless arg...)'.
+
2021-05-16 Mats Lidell <ma...@gnu.org>
* hyrolo.el (google-contacts-oauth-token, xml-node-child-string)
diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index d6a6e29..f3a4a64 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -673,7 +673,7 @@ but it will be copied to the kill ring and then an error
will be signaled."
(defun kotl-mode:kill-sentence (&optional arg)
"Kill up to prefix ARG (or 1) sentences following point within a single
cell."
(interactive "*p")
- (when arg
+ (unless arg
(setq arg 1))
(cond ((> arg 0)
(when (kotl-mode:eocp)
@@ -689,7 +689,7 @@ but it will be copied to the kill ring and then an error
will be signaled."
(defun kotl-mode:kill-word (arg)
"Kill up to prefix ARG words following point within a single cell."
(interactive "*p")
- (when arg
+ (unless arg
(setq arg 1))
(cond ((> arg 0)
(when (kotl-mode:eocp)
@@ -1293,7 +1293,7 @@ doc string for `insert-for-yank-1', which see."
(if (not (eq last-command 'kotl-mode:yank))
(error "Previous command was not a yank"))
(setq this-command 'kotl-mode:yank)
- (when arg
+ (unless arg
(setq arg 1))
(let ((inhibit-read-only t)
(before (< (point) (mark t))))
@@ -1347,7 +1347,7 @@ Return number of cells left to move."
"Move point backward ARG (or 1) characters and return point."
(interactive "p")
(kotl-mode:maintain-region-highlight)
- (when arg
+ (unless arg
(setq arg 1))
(if (>= arg 0)
(while (> arg 0)
@@ -1392,7 +1392,7 @@ See `forward-paragraph' for more information."
(error "(kotl-mode:backward-sentence): First sentence")
(when (and (kotl-mode:bocp) (kcell-view:previous nil label-sep-len))
(goto-char (kcell-view:end-contents)))
- (when arg
+ (unless arg
(setq arg 1))
(save-restriction
(when (= arg 1)
@@ -1413,7 +1413,7 @@ See `forward-paragraph' for more information."
"Move point backward ARG (or 1) words and return point."
(interactive "p")
(kotl-mode:maintain-region-highlight)
- (when arg
+ (unless arg
(setq arg 1))
(if (>= arg 0)
(while (> arg 0)
@@ -1440,7 +1440,7 @@ See `forward-paragraph' for more information."
"Move point to beginning of current or ARGth - 1 prior cell and return
point."
(interactive "p")
(kotl-mode:maintain-region-highlight)
- (when arg
+ (unless arg
(setq arg 1))
(unless (integer-or-marker-p arg)
(error "(kotl-mode:beginning-of-cell): Wrong type arg, integer-or-marker,
`%s'" arg))
@@ -1456,7 +1456,7 @@ See `forward-paragraph' for more information."
"Move point to beginning of current or ARGth - 1 line and return point."
(interactive "p")
(kotl-mode:maintain-region-highlight)
- (when arg
+ (unless arg
(setq arg 1))
(unless (integer-or-marker-p arg)
(error "(kotl-mode:to-start-of-line): Wrong type arg, integer-or-marker,
`%s'" arg))
@@ -1519,7 +1519,7 @@ With optional ARG > 0, move to the ARGth - 1 next visible
cell.
With optional ARG < 0, move to the ARGth previous visible cell."
(interactive "p")
(kotl-mode:maintain-region-highlight)
- (when arg
+ (unless arg
(setq arg 1))
(unless (integer-or-marker-p arg)
(error "(kotl-mode:end-of-cell): Wrong type arg, integer-or-marker, `%s'"
arg))
@@ -1533,7 +1533,7 @@ With optional ARG < 0, move to the ARGth previous visible
cell."
"Move point to end of current or ARGth - 1 line and return point."
(interactive "p")
(kotl-mode:maintain-region-highlight)
- (when arg
+ (unless arg
(setq arg 1))
(unless (integer-or-marker-p arg)
(error "(kotl-mode:to-end-of-line): Wrong type arg, integer-or-marker,
`%s'" arg))
@@ -1602,7 +1602,7 @@ Return number of cells left to move."
"Move point forward ARG (or 1) characters and return point."
(interactive "p")
(kotl-mode:maintain-region-highlight)
- (when arg
+ (unless arg
(setq arg 1))
(if (>= arg 0)
(while (> arg 0)
@@ -1654,7 +1654,7 @@ part of the paragraph, or the end of the buffer."
(if (kotl-mode:eobp)
(error "(kotl-mode:forward-sentence): Last sentence")
(if (kotl-mode:eocp) (kcell-view:next nil label-sep-len))
- (when arg
+ (unless arg
(setq arg 1))
(save-restriction
(when (= arg 1)
@@ -1675,7 +1675,7 @@ part of the paragraph, or the end of the buffer."
"Move point forward ARG (or 1) words and return point."
(interactive "p")
(kotl-mode:maintain-region-highlight)
- (when arg
+ (unless arg
(setq arg 1))
(if (>= arg 0)
(while (> arg 0)
