Mercurial > emacs

comparison lisp/emulation/ws-mode.el @ 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 67b7d1ea7b2e
children 836d868710ec
comparison
equal deleted inserted replaced
7689:48867d3871d5 7690:5b2b84efaeb9
644 "In WordStar mode: Search string, remember string for repetition." 644 "In WordStar mode: Search string, remember string for repetition."
645 (interactive "sSearch for: ") 645 (interactive "sSearch for: ")
646 (message "Forward (f) or backward (b)") 646 (message "Forward (f) or backward (b)")
647 (let ((direction 647 (let ((direction
648 (read-char))) 648 (read-char)))
649 (cond ((equal (upcase direction) \070) 649 (cond ((equal (upcase direction) ?F)
650 (setq ws-search-string string) 650 (setq ws-search-string string)
651 (setq ws-search-direction t) 651 (setq ws-search-direction t)
652 (setq ws-last-cursorposition (point-marker)) 652 (setq ws-last-cursorposition (point-marker))
653 (search-forward string)) 653 (search-forward string))
654 ((equal (upcase direction) \066) 654 ((equal (upcase direction) ?B)
655 (setq ws-search-string string) 655 (setq ws-search-string string)
656 (setq ws-search-direction nil) 656 (setq ws-search-direction nil)
657 (setq ws-last-cursorposition (point-marker)) 657 (setq ws-last-cursorposition (point-marker))
658 (search-backward string)) 658 (search-backward string))
659 (t (keyboard-quit))))) 659 (t (keyboard-quit)))))