Make font non-italicized by default

[spray] / spray.el

diff --git a/spray.el b/spray.el
index 77bff8e95214da58b6005d085e749abe666d93db..bbc15bee2c0e22840e8fae2129ffe6bd6791e4f8 100644 (file)
--- a/spray.el
+++ b/spray.el
@@ -62,13 +62,15 @@
 (make-face 'spray-base-face)
 (set-face-attribute 'spray-base-face nil
                     :background (face-background 'default)
-                    :foreground (face-foreground 'default))
+                    :foreground (face-foreground 'default)
+                    :slant 'normal)
 
 (make-face 'spray-orp-face)
 (set-face-attribute 'spray-orp-face nil
                     :foreground "red"
                     :overline (face-foreground 'default)
-                    :underline (face-foreground 'default))
+                    :underline (face-foreground 'default)
+                    :slant 'normal)
 
 ;; * internal vars
 
@@ -130,8 +132,7 @@ an integer or a float value."
          (spray-start/stop -1))))
 
 (defun spray--pre-command-handler ()
-  (unless (memq this-command
-                '(spray-forward-word spray-backward-word spray-start/stop))
+  (unless (string-match "^spray-" (symbol-name this-command))
     (spray-mode -1)))
 
 (defun spray--word-at-point ()