diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-05-14 17:41:14 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2023-05-14 17:41:14 +0200 |
| commit | e7dc30c1d58c602ccc4b7b9c98c0ea07f5631675 (patch) | |
| tree | ddfd2d57620eb09d7d52418c3ce437fc03e404c6 | |
| parent | e1bb3c9758897ddf0d3906c86e92d691a9658364 (diff) | |
| download | emacs-e7dc30c1d58c602ccc4b7b9c98c0ea07f5631675.tar.gz | |
* lisp/net/net-utils.el (finger): Fix botched logic.
| -rw-r--r-- | lisp/net/net-utils.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el index ea4318e21b5..cb725c0674e 100644 --- a/lisp/net/net-utils.el +++ b/lisp/net/net-utils.el @@ -774,11 +774,11 @@ and `network-connection-service-alist', which see." (process-name (concat "Finger [" user-and-host "]")) (regexps finger-X.500-host-regexps) ) ;; found - (and regexps - (while (not (string-match (car regexps) host)) - (setq regexps (cdr regexps))) - (when regexps - (setq user-and-host user))) + (when regexps + (while (not (string-match (car regexps) host)) + (setq regexps (cdr regexps))) + (when regexps + (setq user-and-host user))) (run-network-program process-name host |