From add91c7b9459a2c10da71960130f5cf78f234290 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Mon, 26 Nov 2001 16:21:06 +0000 Subject: [PATCH] (file-cache-minibuffer-complete): Use insert instead of insert-string. --- lisp/filecache.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/filecache.el b/lisp/filecache.el index e421e5dd8f0..b27aceae1ea 100644 --- a/lisp/filecache.el +++ b/lisp/filecache.el @@ -3,7 +3,7 @@ ;; Author: Peter Breton ;; Created: Sun Nov 10 1996 ;; Keywords: convenience -;; Time-stamp: <2000-08-31 19:44:13 pbreton> +;; Time-stamp: <2001-11-26 12:03:18 pavel> ;; ;; Copyright (C) 1996, 2000 Free Software Foundation, Inc. @@ -516,7 +516,7 @@ the name is considered already unique; only the second substitution (if (string= file-cache-string (minibuffer-contents)) (file-cache-temp-minibuffer-message file-cache-sole-match-message) (delete-minibuffer-contents) - (insert-string file-cache-string) + (insert file-cache-string) (if file-cache-multiple-directory-message (file-cache-temp-minibuffer-message file-cache-multiple-directory-message)) @@ -532,7 +532,7 @@ the name is considered already unique; only the second substitution (string= file-cache-last-completion completion-string)) (progn (delete-minibuffer-contents) - (insert-string (file-cache-file-name completion-string)) + (insert (file-cache-file-name completion-string)) (setq file-cache-last-completion nil) ) (file-cache-temp-minibuffer-message file-cache-non-unique-message) @@ -544,7 +544,7 @@ the name is considered already unique; only the second substitution (if (> len 1) (progn (goto-char (point-max)) - (insert-string + (insert (substring completion-string (length string))) ;; Add our own setup function to the Completions Buffer (let ((completion-setup-hook @@ -561,7 +561,7 @@ the name is considered already unique; only the second substitution (file-cache-temp-minibuffer-message file-cache-sole-match-message) (delete-minibuffer-contents) - (insert-string file-cache-string) + (insert file-cache-string) (if file-cache-multiple-directory-message (file-cache-temp-minibuffer-message file-cache-multiple-directory-message))) -- 2.39.5