*** empty log message ***

[gnu-emacs] / lisp / finder.el

diff --git a/lisp/finder.el b/lisp/finder.el
index de761b1426788a89f1385ea2eea3a04e453c8807..ee58902ff449963015e3d640aaa2624a8a2ea375 100644 (file)
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -97,8 +97,9 @@ arguments compiles from load-path."
                    (setq summary (lm-synopsis))
                    (setq keywords (lm-keywords)))
                  (insert
-                  (format "    (\"%s\"\n        " f)
-                  (if summary (format "\"%s\"" summary) "nil")
+                  (format "    (\"%s\"\n        " f))
+                 (prin1 summary (current-buffer))
+                 (insert
                   "\n        ")
                  (setq keystart (point))
                  (insert