Mercurial > hg > xemacs-beta

comparison lisp/isearch-mode.el @ 253:157b30c96d03 r20-5b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b25
author cvs
date Mon, 13 Aug 2007 10:20:27 +0200
parents 41ff10fd062f
children c5d627a313b1
comparison
equal deleted inserted replaced
252:afb15df44434 253:157b30c96d03
867 backwards." 867 backwards."
868 (interactive) 868 (interactive)
869 (if (and delete-key-deletes-forward 869 (if (and delete-key-deletes-forward
870 (case (device-type) 870 (case (device-type)
871 ('tty (eq tty-erase-char ?\C-h)) 871 ('tty (eq tty-erase-char ?\C-h))
872 ('x (not (x-keysym-on-keyboard-p "BackSpace"))))) 872 ('x (not (x-keysym-on-keyboard-sans-modifiers-p 'backspace)))))
873 (isearch-delete-char) 873 (isearch-delete-char)
874 (isearch-mode-help))) 874 (isearch-mode-help)))
875 875
876 (defun isearch-yank (chunk) 876 (defun isearch-yank (chunk)
877 ;; Helper for isearch-yank-* functions. CHUNK can be a string or a 877 ;; Helper for isearch-yank-* functions. CHUNK can be a string or a