Function: ange-ftp-parse-netrc-token

ange-ftp-parse-netrc-token is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-parse-netrc-token TOKEN LIMIT)

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
;; Move along current line looking for the value of the TOKEN.
;; Valid separators between TOKEN and its value are commas and
;; whitespace.  Second arg LIMIT is a limit for the search.

(defun ange-ftp-parse-netrc-token (token limit)
  (if (search-forward token limit t)
      (let (beg)
	(skip-chars-forward ", \t\r\n" limit)
	(if (eq (following-char) ?\")	;quoted token value
	    (progn (forward-char 1)
		   (setq beg (point))
		   (skip-chars-forward "^\"" limit)
		   (forward-char 1)
		   (buffer-substring beg (1- (point))))
	  (setq beg (point))
	  (skip-chars-forward "^, \t\r\n" limit)
	  (buffer-substring beg (point))))))