From 9c481732d16d61ca8b275493ccc12344d1be0cc1 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 26 May 1994 17:38:14 +0000 Subject: [PATCH] (ws-search): Fix malformed character constants. --- lisp/emulation/ws-mode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el index d0fb619398f..a822ba13c04 100644 --- 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)) -- 2.39.5