Mercurial > emacs

changeset 7690:5b2b84efaeb9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ws-search): Fix malformed character constants.
author Karl Heuer <kwzh@gnu.org>
date Thu, 26 May 1994 17:38:14 +0000
parents 48867d3871d5
children 21d7fb06e63a
files lisp/emulation/ws-mode.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))