Removed unused arg to company-in-string-or-comment.

diff --git a/company-elisp.el b/company-elisp.el
index 74f88972c9d29f2118faf50e23c427b80395f552..5c7a11ecba22e9c22ca6dd31efa4b871cd082643 100644 (file)
--- a/company-elisp.el
+++ b/company-elisp.el
@@ -30,7 +30,7 @@ Functions are offered for completion only after ' and \(."
 
 (defun company-grab-lisp-symbol ()
   (let ((prefix (company-grab-symbol)))
-    (unless (and (company-in-string-or-comment (- (point) (length prefix)))
+    (unless (and (company-in-string-or-comment)
                  (/= (char-before (- (point) (length prefix))) ?`))
       prefix)))
 

diff --git a/company.el b/company.el
index 27c95fb7d1b010ee4334ecc8463e93798dc7e7f6..48f4919429a327bed597fe42fa162e575f8b02ce 100644 (file)
--- a/company.el
+++ b/company.el
@@ -534,9 +534,9 @@ keymap during active completions (`company-active-map'):
                                                 (point)))
     ""))
 
-(defun company-in-string-or-comment (&optional point)
-  (let ((pos (syntax-ppss)))
-    (or (nth 3 pos) (nth 4 pos) (nth 7 pos))))
+(defun company-in-string-or-comment ()
+  (let ((ppss (syntax-ppss)))
+    (or (nth 3 ppss) (nth 4 ppss) (nth 7 ppss))))
 
 ;;; completion mechanism ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;