iankelling.org
/
git
/
spray
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0cb0ae4
)
remove exit on all keys. things like ctrl-h m are usefull
author
Ian Kelling
<ian@iankelling.org>
Mon, 30 Jun 2014 03:46:48 +0000
(20:46 -0700)
committer
Ian Kelling
<ian@iankelling.org>
Mon, 30 Jun 2014 03:46:48 +0000
(20:46 -0700)
Readme.org
patch
|
blob
|
history
spray.el
patch
|
blob
|
history
diff --git
a/Readme.org
b/Readme.org
index 9f30145d41f260de0c51714ee1efca373e2432df..bb72dd883376e6cf14fe82b6fccb27af1b065083 100644
(file)
--- a/
Readme.org
+++ b/
Readme.org
@@
-41,7
+41,9
@@
In spray-mode buffers, following commands are available.
- =spray-slower= (s) ::
decreases speed
- =spray-slower= (s) ::
decreases speed
-Press any key else to quit =spray-mode=.
+- =spray-quit= (q, <return>) ::
+ quit =spray-mode=
+
** Customization
** Customization
diff --git
a/spray.el
b/spray.el
index 7a6b8fd23c47b4253c94140919bf709f650089e2..76e4e36159ea55a6aa8538455adb8a16136f87ed 100644
(file)
--- a/
spray.el
+++ b/
spray.el
@@
-121,7
+121,6
@@
(overlay-put spray--base-overlay 'face 'spray-base-face)
(overlay-put spray--orp-overlay 'priority 101)
(overlay-put spray--orp-overlay 'face 'spray-orp-face)
(overlay-put spray--base-overlay 'face 'spray-base-face)
(overlay-put spray--orp-overlay 'priority 101)
(overlay-put spray--orp-overlay 'face 'spray-orp-face)
- (add-hook 'pre-command-hook 'spray--pre-command-handler)
(spray-start))
(t
(setq cursor-type spray--saved-cursor-type)
(spray-start))
(t
(setq cursor-type spray--saved-cursor-type)
@@
-135,7
+134,6
@@
(buffer-face-mode 1)))
(delete-overlay spray--base-overlay)
(delete-overlay spray--orp-overlay)
(buffer-face-mode 1)))
(delete-overlay spray--base-overlay)
(delete-overlay spray--orp-overlay)
- (remove-hook 'pre-command-hook 'spray--pre-command-handler)
(spray-stop))))
(defun spray-quit ()
(spray-stop))))
(defun spray-quit ()
@@
-143,10
+141,6
@@
(interactive)
(spray-mode -1))
(interactive)
(spray-mode -1))
-(defun spray--pre-command-handler ()
- (unless (string-match "^spray-" (symbol-name this-command))
- (spray-mode -1)))
-
(defun spray--word-at-point ()
(skip-chars-backward "^\s\t\n")
(let* ((beg (point))
(defun spray--word-at-point ()
(skip-chars-backward "^\s\t\n")
(let* ((beg (point))