(debug-convert-byte-code): Convert the doc info to a string.

[bpt/emacs.git] / lisp / emacs-lisp / lisp.el

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index d6f3e4a..fd9ae0c 100644 (file)
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -218,6 +218,7 @@ before and after, depending on the surrounding characters."
     (setq arg 0))
   (or (eq arg 0) (skip-chars-forward " \t"))
   (and parens-require-spaces
+       (not (bobp))
        (memq (char-syntax (preceding-char)) '(?w ?_ ?\) ))
        (insert " "))
   (insert ?\()
@@ -225,6 +226,7 @@ before and after, depending on the surrounding characters."
     (or (eq arg 0) (forward-sexp arg))
     (insert ?\))
     (and parens-require-spaces
+        (not (eobp))
         (memq (char-syntax (following-char)) '(?w ?_ ?\( ))
         (insert " "))))
 
@@ -277,7 +279,12 @@ function definitions, values or properties are considered."
           (insert completion))
          (t
           (message "Making completion list...")
-          (let ((list (all-completions pattern obarray predicate)))
+          (let ((list (all-completions pattern obarray predicate))
+                (completion-fixup-function
+                 (function (lambda () (if (save-excursion
+                                            (goto-char (max (point-min) (- (point) 4)))
+                                            (looking-at " <f>"))
+                                          (forward-char -4))))))
             (or (eq predicate 'fboundp)
                 (let (new)
                   (while list