Function: faceup-this-file-directory

faceup-this-file-directory is a byte-compiled function defined in faceup.el.gz.

Signature

(faceup-this-file-directory)

Documentation

The directory of the file where the call to this function is located in.

Intended to be called when a file is loaded.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/faceup.el.gz
;; ------------------------------
;; Get current file directory. Test cases can use this to locate test
;; files.
;;

(defun faceup-this-file-directory ()
  "The directory of the file where the call to this function is located in.
Intended to be called when a file is loaded."
  (expand-file-name
   (if load-file-name
       ;; File is being loaded.
       (file-name-directory load-file-name)
     ;; File is being evaluated using, for example, `eval-buffer'.
     default-directory)))