Source

ocamlspot / ocamlspot.el

Diff from to

File ocamlspot.el

               (<= lines max-echo-height))
           (progn
             (let ((mes (buffer-string)))
-              (message mes)
+              (message "%s" mes)
               mes))
         (if may-pop ; buffer layout may change... no way to recover ?
             (progn
           (let ((lines (max 1 (1- max-echo-height))))
             (goto-char (point-min))
             (forward-visible-line (max 1 (- max-echo-height 2)))
-            (message (concat (buffer-substring (point-min) (point)) "... Result is too long. Truncated."))
+            (message "%s" (concat (buffer-substring (point-min) (point)) "... Result is too long. Truncated."))
             nil))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; type buffer
 		 (progn
 		   (move-overlay ocamlspot-tree-overlay start end)
 		   (buffer-substring-no-properties start end)))))))
-    (message (concat "path-name " path-name))
+    (message "%s" (concat "path-name " path-name))
     (let ((file-name 
 	   (save-excursion
 	     (goto-char (point-min))
       (let ((query (ocamlspot-xtype-build-query-at-cursor)))
 	(if query
 	    (progn
-	      (message query)
+	      (message "%s" query)
 	      (ocamlspot-run-query '(query))
 	      (ocamlspot-find-spot)
 	      (ocamlspot-wait))