* viper-cmd.el (viper-minibuffer-standard-hook,

	viper-minibuffer-real-start): new functions.
	(viper-read-string-with-history,viper-file-add-suffix,
	viper-trim-replace-chars-to-delete-if-necessary): adapt to the
	change in the status of the minibuffer prompt.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9eb39fb73dd8089b33a61487805cb1adc9b8e84c..1885aa18b5fb66bffde23957b41b230dae655fa2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+1999-12-06  Michael Kifer  <kifer@cs.sunysb.edu>
+       
+       * viper-cmd.el (viper-minibuffer-standard-hook,
+       viper-minibuffer-real-start): new functions.
+       (viper-read-string-with-history,viper-file-add-suffix,
+       viper-trim-replace-chars-to-delete-if-necessary): adapt to the
+       change in the status of the minibuffer prompt.
+       
 1999-12-06  Gerd Moellmann  <gerd@gnu.org>
 
        * comint.el (comint-redirect-results-list)

diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 90f17223ec359726360faea874704ddcb2888e2b..a2b9455220458f27568874d1d3ed2173e23cceb9 100644 (file)
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -1855,6 +1855,28 @@ Undo previous insertion and inserts new."
     (funcall hook)
     ))
 
+;; Thie is a temp hook that uses free variables init-message and initial.
+;; A dirty feature, but it is the simplest way to have it do the right thing.
+(defun viper-minibuffer-standard-hook ()
+  (if (stringp init-message)
+      (viper-tmp-insert-at-eob init-message))
+  (if (stringp initial)
+      (progn
+       ;; don't wait if we have unread events or in kbd macro
+       (or unread-command-events
+           executing-kbd-macro
+           (sit-for 840))
+       (if (fboundp 'minibuffer-prompt-end)
+           (delete-region (minibuffer-prompt-end) (point-max))
+         (erase-buffer))
+       (insert initial)))
+  (viper-minibuffer-setup-sentinel))
+
+(defsubst viper-minibuffer-real-start ()
+  (if (fboundp 'minibuffer-prompt-end)
+      (minibuffer-prompt-end)
+    (point-min)))
+
 
 ;; Interpret last event in the local map first; if fails, use exit-minibuffer.
 ;; Run viper-minibuffer-exit-hook before exiting.
@@ -1893,7 +1915,8 @@ To turn this feature off, set this variable to nil."
 (defun viper-file-add-suffix ()
   (let ((count 0)
        (len (length viper-smart-suffix-list))
-       (file (buffer-string))
+       (file (buffer-substring-no-properties
+              (viper-minibuffer-real-start) (point-max)))
        found key cmd suff)
     (goto-char (point-max))
     (if (and viper-smart-suffix-list (string-match "\\.$" file))
@@ -1932,7 +1955,7 @@ Remove this function from `viper-minibuffer-exit-hook', if this causes
 problems."
   (if (viper-is-in-minibuffer)
       (progn
-       (goto-char (point-min))
+       (goto-char (viper-minibuffer-real-start))
        (end-of-line)
        (delete-region (point) (point-max)))))
 
@@ -1950,19 +1973,7 @@ problems."
   ;; KEYMAP is used, if given, instead of minibuffer-local-map.
   ;; INIT-MESSAGE is the message temporarily displayed after entering the
   ;; minibuffer.
-  (let ((minibuffer-setup-hook
-        (lambda ()
-          (if (stringp init-message)
-              (viper-tmp-insert-at-eob init-message))
-          (if (stringp initial)
-              (progn
-                ;; don't wait if we have unread events or in kbd macro
-                (or unread-command-events
-                    executing-kbd-macro
-                    (sit-for 840))
-                (erase-buffer)
-                (insert initial)))
-          (viper-minibuffer-setup-sentinel)))
+  (let ((minibuffer-setup-hook 'viper-minibuffer-standard-hook)
        (val "")
        (padding "")
        temp-msg)