From 75f317ce2611178f4532e535638294c3f48cc552 Mon Sep 17 00:00:00 2001 From: Ian Kelling Date: Sun, 29 Jun 2014 20:46:48 -0700 Subject: [PATCH] remove exit on all keys. things like ctrl-h m are usefull --- Readme.org | 4 +++- spray.el | 6 ------ 2 files changed, 3 insertions(+), 7 deletions(-) diff --git a/Readme.org b/Readme.org index 9f30145..bb72dd8 100644 --- a/Readme.org +++ b/Readme.org @@ -41,7 +41,9 @@ In spray-mode buffers, following commands are available. - =spray-slower= (s) :: decreases speed -Press any key else to quit =spray-mode=. +- =spray-quit= (q, ) :: + quit =spray-mode= + ** Customization diff --git a/spray.el b/spray.el index 7a6b8fd..76e4e36 100644 --- 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) - (add-hook 'pre-command-hook 'spray--pre-command-handler) (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) - (remove-hook 'pre-command-hook 'spray--pre-command-handler) (spray-stop)))) (defun spray-quit () @@ -143,10 +141,6 @@ (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)) -- 2.30.2