(PC-do-completion): Bind dirlength to nil to avoid

that buffer contents get erased during completion.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d04960ffdcbee4174be72f14ee967e6c2df031d..2029538256b663c4a9f564ee67767bfb193eea0f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-10  Martin Rudalics  <rudalics@gmx.at>
+
+       * complete.el (PC-do-completion): Bind dirlength to nil to avoid
+       that buffer contents get erased during completion.
+
 2007-03-10  Glenn Morris  <rgm@gnu.org>
 
        * woman.el (woman-change-fonts): Add a hack to deal with

diff --git a/lisp/complete.el b/lisp/complete.el
index 104f37894035e23658f21c67cde1ff5840a6bb74..ce5094d1aef73e9608974aa041b5e937b4871065 100644 (file)
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -417,7 +417,10 @@ of `minibuffer-completion-table' and the minibuffer contents.")
         (pred minibuffer-completion-predicate)
         (filename (funcall PC-completion-as-file-name-predicate))
         (dirname nil)          ; non-nil only if a filename is being completed
-        (dirlength 0)
+        ;; The following used to be "(dirlength 0)" which caused the erasure of
+        ;; the entire buffer text before `point' when inserting a completion
+        ;; into a buffer.
+        dirlength
         (str (buffer-substring beg end))
         (incname (and filename (string-match "<\\([^\"<>]*\\)>?$" str)))
         (ambig nil)