mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(isearch-char-to-string): Use char-to-string.

Browse Source 
(isearch-quote-char): Add nonascii-insert-offset.
This commit is contained in:
Richard M. Stallman 1997-07-15 00:23:03 +00:00
parent 5d23c61260
commit 92d874e687
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/isearch.el
View File

@ -1162,7 +1162,8 @@ and the meta character is unread so that it applies to editing the string."
(defun isearch-quote-char ()
"Quote special characters for incremental search."
(interactive)
(isearch-process-search-char (read-quoted-char (isearch-message t))))
(isearch-process-search-char (+ (read-quoted-char (isearch-message t))
nonascii-insert-offset)))
(defun isearch-return-char ()
"Convert return into newline for incremental search.
@ -1669,7 +1670,7 @@ since they have special meaning in a regexp."
;; Portability functions to support various Emacs versions.
(defun isearch-char-to-string (c)
(make-string 1 c))
(char-to-string c))
(defun isearch-text-char-description (c)
(if (and (integerp c) (or (< c ?\ ) (= c ?\^?)))