Make sure tooltip numbers are cropped correctly at the window edge.

[gnu-emacs-elpa] / company-files.el

diff --git a/company-files.el b/company-files.el
index cdb8bf1624d39beef54ed93c5ae7c6bbfe9682a5..c081558dd94435759d4102f2ec1b1980fee4fe09 100644 (file)
--- a/company-files.el
+++ b/company-files.el
@@ -28,9 +28,9 @@
 
 (defun company-files-grab-existing-name ()
   ;; Grab file names with spaces, only when they include quotes.
-  (let ((file (or (company-grab "\"\\(~?/[^\"\n]*\\)" 1)
-                  (company-grab "\'\\(~?/[^\'\n]*\\)" 1)
-                  (company-grab "[ \t\n]\\(~?/[^ \t\n]*\\)" 1)))
+  (let ((file (or (company-grab-line "\"\\(~?/[^\"\n]*\\)" 1)
+                  (company-grab-line "\'\\(~?/[^\'\n]*\\)" 1)
+                  (company-grab-line "[ \t\n]\\(~?/[^ \t\n]*\\)" 1)))
         dir)
     (and file
          (setq dir (file-name-directory file))