branch: elpa/recomplete
commit 19b66704484407d51f7326bca33feadf02b385bc
Author: Campbell Barton <ideasma...@gmail.com>
Commit: Campbell Barton <ideasma...@gmail.com>
Fail when commands run on read-only buffers
---
recomplete.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/recomplete.el b/recomplete.el
index c2092abfbe..d785e77b1b 100644
--- a/recomplete.el
+++ b/recomplete.el
@@ -700,7 +700,7 @@ step onto the next item)."
"Run `ispell-word', using the first suggestion, or cycle forward.
ARG is the offset to cycle, default is 1, -1 to cycle backwards."
(declare (important-return-value nil))
- (interactive "p")
+ (interactive "*p")
(recomplete-with-callback 'recomplete-impl-ispell arg))
;; Case Style Cycle.
@@ -709,7 +709,7 @@ ARG is the offset to cycle, default is 1, -1 to cycle
backwards."
"Cycles over common case-styles.
ARG is the offset to cycle, default is 1, -1 to cycle backwards."
(declare (important-return-value nil))
- (interactive "p")
+ (interactive "*p")
(recomplete-with-callback 'recomplete-impl-case-style arg))
;; Case Style Cycle Programming Mode.
@@ -718,7 +718,7 @@ ARG is the offset to cycle, default is 1, -1 to cycle
backwards."
"Cycles over common case-styles.
ARG is the offset to cycle, default is 1, -1 to cycle backwards."
(declare (important-return-value nil))
- (interactive "p")
+ (interactive "*p")
(recomplete-with-callback 'recomplete-impl-case-style-symbol arg))
;; Abbreviations.
@@ -727,7 +727,7 @@ ARG is the offset to cycle, default is 1, -1 to cycle
backwards."
"Run `dabbrev', using the first suggestion, or cycle forward.
ARG is the offset to cycle, default is 1, -1 to cycle backwards."
(declare (important-return-value nil))
- (interactive "p")
+ (interactive "*p")
(recomplete-with-callback 'recomplete-impl-dabbrev arg))
(provide 'recomplete)
