Function: ispell-with-safe-default-directory

ispell-with-safe-default-directory is a macro defined in ispell.el.gz.

Signature

(ispell-with-safe-default-directory &rest BODY)

Documentation

Execute the forms in BODY with a reasonable default-directory.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/ispell.el.gz
(defmacro ispell-with-safe-default-directory (&rest body)
  "Execute the forms in BODY with a reasonable `default-directory'."
  (declare (indent 0) (debug t))
  `(let ((default-directory default-directory))
     (unless (and (not (file-remote-p default-directory))
                  (file-accessible-directory-p default-directory))
       (setq default-directory (expand-file-name "~/")))
     ,@body))