Function: eww-make-unique-file-name

eww-make-unique-file-name is a byte-compiled function defined in eww.el.gz.

Signature

(eww-make-unique-file-name FILE DIRECTORY)

Source Code

;; Defined in /usr/src/emacs/lisp/net/eww.el.gz
(defun eww-make-unique-file-name (file directory)
  (cond
   ((zerop (length file))
    (setq file "!"))
   ((string-match "\\`[.]" file)
    (setq file (concat "!" file))))
  (let ((count 1)
        (stem file)
        (suffix ""))
    (when (string-match "\\`\\(.*\\)\\([.][^.]+\\)" file)
      (setq stem (match-string 1 file)
            suffix (match-string 2 file)))
    (while (file-exists-p (expand-file-name file directory))
      (setq file (format "%s(%d)%s" stem count suffix))
      (setq count (1+ count)))
    (expand-file-name file directory)))