diff options
author | Nicolas Richard <theonewiththeevillook@yahoo.fr> | 2015-04-03 12:28:40 +0200 |
---|---|---|
committer | Nicolas Richard <theonewiththeevillook@yahoo.fr> | 2015-04-03 13:57:42 +0200 |
commit | 7c691f32f78303750d29972a29dcc6754fae257a (patch) | |
tree | 8728126888969bdad883adb32a9741462a8d69eb /lisp/pcmpl-unix.el | |
parent | 2d45a5be18ee61e23dfe6af4e23f1eda3595b22c (diff) | |
download | emacs-7c691f32f78303750d29972a29dcc6754fae257a.tar.gz |
pcmpl-ssh-known-hosts: Use `char-before' instead of `looking-back'.
Fixes: debbugs:17284
* lisp/pcmpl-unix.el (pcmpl-ssh-known-hosts): Use `char-before' instead
of `looking-back'.
Diffstat (limited to 'lisp/pcmpl-unix.el')
-rw-r--r-- | lisp/pcmpl-unix.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/pcmpl-unix.el b/lisp/pcmpl-unix.el index 3598cd64b46..7be57e9c93a 100644 --- a/lisp/pcmpl-unix.el +++ b/lisp/pcmpl-unix.el @@ -157,7 +157,7 @@ documentation), this function returns nil." (while (re-search-forward (concat "^ *" host-re) nil t) (add-to-list 'ssh-hosts-list (concat (match-string 1) (match-string 2))) - (while (and (looking-back ",") + (while (and (eq (char-before) ?,) (re-search-forward host-re (line-end-position) t)) (add-to-list 'ssh-hosts-list (concat (match-string 1) (match-string 2))))) |