# HG changeset patch # User Pavel Jank # Date 1006791666 0 # Node ID 1aef79dfa6febf718d3c9c62406f6f1264dabf98 # Parent 37ca208c68f0ffbfeb1b0788fc06ca931e7b3013 (file-cache-minibuffer-complete): Use insert instead of insert-string. diff -r 37ca208c68f0 -r 1aef79dfa6fe lisp/filecache.el --- a/lisp/filecache.el Mon Nov 26 16:20:18 2001 +0000 +++ b/lisp/filecache.el Mon Nov 26 16:21:06 2001 +0000 @@ -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 @@ (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 @@ (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 @@ (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 @@ (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)))