summaryrefslogtreecommitdiff
path: root/lisp/pcmpl-unix.el
diff options
context:
space:
mode:
authorNicolas Richard <theonewiththeevillook@yahoo.fr>2015-04-03 12:28:40 +0200
committerNicolas Richard <theonewiththeevillook@yahoo.fr>2015-04-03 13:57:42 +0200
commit7c691f32f78303750d29972a29dcc6754fae257a (patch)
tree8728126888969bdad883adb32a9741462a8d69eb /lisp/pcmpl-unix.el
parent2d45a5be18ee61e23dfe6af4e23f1eda3595b22c (diff)
downloademacs-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.el2
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)))))