Commit 9c481732 authored by Karl Heuer's avatar Karl Heuer
Browse files

(ws-search): Fix malformed character constants.

parent 235c56d4
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment