Function: hfy-dirname

hfy-dirname is a byte-compiled function defined in htmlfontify.el.gz.

Signature

(hfy-dirname FILE)

Documentation

Return everything preceding the last "/" from a relative filename FILE, on the assumption that this will produce a relative directory name. Hardly bombproof, but good enough in the context in which it is being used.

Source Code

;; Defined in /usr/src/emacs/lisp/htmlfontify.el.gz
;; strip the filename off, return a directory name
;; not a particularly thorough implementation, but it will be
;; fed pretty carefully, so it should be Ok:
(defun hfy-dirname (file)
  "Return everything preceding the last \"/\" from a relative filename FILE,
on the assumption that this will produce a relative directory name.
Hardly bombproof, but good enough in the context in which it is being used."
  ;;(message "hfy-dirname");;DBUG
  (let ((f (directory-file-name file)))
    (and (string-match "^\\(.*\\)/" f) (match-string 1 f))))