Mercurial > emacs

changeset 25131:1d78cd7c460d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(finger): Don't do indirect fingering.
author Karl Heuer <kwzh@gnu.org>
date Fri, 30 Jul 1999 15:39:42 +0000
parents 3f2b516f9ddc
children 07b44154638f
files lisp/net-utils.el
diffstat 1 files changed, 6 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net-utils.el	Fri Jul 30 15:15:57 1999 +0000
+++ b/lisp/net-utils.el	Fri Jul 30 15:39:42 1999 +0000
@@ -560,7 +560,7 @@
   (interactive
     (let* ((answer (read-from-minibuffer "Finger User: "
 					 (net-utils-url-at-point)))
-	   (index  (string-match (regexp-quote "@") answer)))
+	   (index  (string-match "@" answer)))
       (if index
 	  (list 
 	   (substring answer 0 index)
@@ -568,17 +568,11 @@
 	(list
 	 answer
 	 (read-from-minibuffer "At Host: " (net-utils-machine-at-point))))))
-  (let* (
-	 (user-and-host (concat user "@" host))
-	 (process-name 
-	  (concat "Finger [" user-and-host "]"))
-	 )
-    (run-network-program 
-     process-name 
-     host 
-     (cdr (assoc 'finger network-connection-service-alist))
-     user-and-host
-     )))
+  (run-network-program 
+   (concat "Finger [" user "@" host "]")
+   host 
+   (cdr (assoc 'finger network-connection-service-alist))
+   user))
 
 (defcustom whois-server-name "whois.arin.net"
   "Default host name for the whois service."