Mercurial > emacs

comparison lisp/isearch.el @ 8670:1b4786e3de7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-edit-string): Use isearch-text-char-description.
author Richard M. Stallman <rms@gnu.org>
date Tue, 30 Aug 1994 21:20:09 +0000
parents 3f7bd8c32c9a
children 082392c8f9be
comparison
equal deleted inserted replaced
8669:62d1138d10de 8670:1b4786e3de7a
2 2
3 ;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
4 4
5 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> 5 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
6 6
7 ;; |$Date: 1994/08/05 04:15:20 $|$Revision: 1.71 $ 7 ;; |$Date: 1994/08/30 07:03:33 $|$Revision: 1.72 $
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
10 10
11 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by 12 ;; it under the terms of the GNU General Public License as published by
743 (let (junk-ring) 743 (let (junk-ring)
744 (read-from-minibuffer (isearch-message-prefix) 744 (read-from-minibuffer (isearch-message-prefix)
745 isearch-string 745 isearch-string
746 minibuffer-local-isearch-map nil 746 minibuffer-local-isearch-map nil
747 'junk-ring)) 747 'junk-ring))
748 isearch-new-message (mapconcat 'text-char-description 748 isearch-new-message
749 isearch-new-string ""))) 749 (mapconcat 'isearch-text-char-description
750 isearch-new-string "")))
750 ;; Always resume isearching by restarting it. 751 ;; Always resume isearching by restarting it.
751 (isearch-mode isearch-forward 752 (isearch-mode isearch-forward
752 isearch-regexp 753 isearch-regexp
753 isearch-op-fun 754 isearch-op-fun
754 nil 755 nil