Fix limit of looking-back to 1 before point.

* helm-elisp.el: Do it. * helm-eshell.el: Do it. * helm-eval.el: Do it.
emacsmirror · May 11, 2015 · 81e3b4f · 81e3b4f
1 parent fa00dee
commit 81e3b4f
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/helm-elisp.el b/helm-elisp.el
@@ -356,7 +356,7 @@ If SYM is not documented, return \"Not documented\"."
                           (end-of-line)
                           (search-backward tap (point-at-bol) t)
                           (setq beg (point))
-                          (looking-back "[^'`( ]" 1)))
+                          (looking-back "[^'`( ]" (1- (point)))))
                     (expand-file-name
                      (substring-no-properties tap))))
          (end  (point))
@@ -390,7 +390,7 @@ Filename completion happen if string start after or between a double quote."
     (if (and tap (save-excursion
                    (end-of-line)
                    (search-backward tap (point-at-bol) t)
-                   (looking-back "[^'`( ]" 1)))
+                   (looking-back "[^'`( ]" (1- (point)))))
         (helm-complete-file-name-at-point)
       (helm-lisp-completion-at-point))))
 

diff --git a/helm-eshell.el b/helm-eshell.el
@@ -178,7 +178,7 @@ The function that call this should set `helm-ec-target' to thing at point."
          (args (catch 'eshell-incomplete
                  (eshell-parse-arguments beg end)))
          (target
-          (or (and (looking-back " " 1) " ")
+          (or (and (looking-back " " (1- (point))) " ")
               (buffer-substring-no-properties
                (save-excursion
                  (eshell-backward-argument 1) (point))
@@ -232,7 +232,7 @@ The function that call this should set `helm-ec-target' to thing at point."
                  :resume 'noresume
                  :input input))
       (when (and flag-empty
-                 (looking-back " " 1))
+                 (looking-back " " (1- (point))))
         (delete-char -1)))))
 
 (provide 'helm-eshell)

diff --git a/helm-eval.el b/helm-eval.el
@@ -118,7 +118,7 @@ Should take one arg: the string to display."
         (when (member buf helm-eldoc-active-minibuffers-list)
           (with-current-buffer buf
             (let* ((sym     (save-excursion
-                              (unless (looking-back ")\\|\"" 1)
+                              (unless (looking-back ")\\|\"" (1- (point)))
                                 (forward-char -1))
                               (eldoc-current-symbol)))
                    (info-fn (eldoc-fnsym-in-current-sexp))