(ws-search): Fix malformed character constants.

9c481732 · Karl Heuer · 235c56d4 · 9c481732
Commit 9c481732 authored May 26, 1994 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/emulation/ws-mode.el lisp/emulation/ws-mode.el +2 -2

No files found.
--- a/lisp/emulation/ws-mode.el
+++ b/lisp/emulation/ws-mode.el
@@ -646,12 +646,12 @@ in ws-last-errormessage for recovery with C-q w."
  (message "Forward (f) or backward (b)")
  (let ((direction
 	 (read-char)))
-    (cond ((equal (upcase direction) \070)
+    (cond ((equal (upcase direction) ?F)
 	   (setq ws-search-string string)
 	   (setq ws-search-direction t)
 	   (setq ws-last-cursorposition (point-marker))
 	   (search-forward string))
-	  ((equal (upcase direction) \066)
+	  ((equal (upcase direction) ?B)
 	   (setq ws-search-string string)
 	   (setq ws-search-direction nil)
 	   (setq ws-last-cursorposition (point-marker))