Function: ediff-strip-last-dir

ediff-strip-last-dir is a byte-compiled function defined in ediff-init.el.gz.

Signature

(ediff-strip-last-dir DIR)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/ediff-init.el.gz
;; Takes a directory and returns the parent directory.
;; does nothing to `/'.  If the ARG is a regular file,
;; strip the file AND the last dir.
(defun ediff-strip-last-dir (dir)
  (if (not (stringp dir)) (setq dir default-directory))
  (setq dir (expand-file-name dir))
  (or (file-directory-p dir) (setq dir (file-name-directory dir)))
  (let* ((pos (1- (length dir)))
	 (last-char (aref dir pos)))
    (if (and (> pos 0) (= last-char ?/))
	(setq dir (substring dir 0 pos)))
    (ediff-abbreviate-file-name (file-name-directory dir))))