# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 769973894 0
# Node ID 5b2b84efaeb9db076af86b61f2838246f9dc89a6
# Parent  48867d3871d548f418d4f26dbd25254bbfdb9808
(ws-search): Fix malformed character constants.

diff -r 48867d3871d5 -r 5b2b84efaeb9 lisp/emulation/ws-mode.el
--- a/lisp/emulation/ws-mode.el	Thu May 26 08:52:27 1994 +0000
+++ b/lisp/emulation/ws-mode.el	Thu May 26 17:38:14 1994 +0000
@@ -646,12 +646,12 @@
   (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))