Lines Matching +defs:write +defs:file +defs:functions
10 ;; This file is part of GNU Emacs.
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
36 ;; way, it's easy to occasionally go through this file and see which
54 is not loaded; so load the file FILENAME.
55 If FILENAME is omitted, the printname of FEATURE is used as the file name.
57 then return nil if the file is not found instead of signaling an error.
130 \"../etc/images\" relative to the library file itself, and then
169 (setq dir (file-name-directory dir))
170 (while (setq parent (file-name-directory img))
171 (setq img (directory-file-name parent)
172 dir (expand-file-name "../" dir))))
183 (file-name-as-directory
184 (expand-file-name "images" data-directory)))))
195 d2ei (file-name-as-directory
196 (expand-file-name
197 (concat (file-name-directory library-name) "../../etc/images")))
199 d1ei (file-name-as-directory
200 (expand-file-name
201 (concat (file-name-directory library-name) "../etc/images"))))
204 (cond ((file-exists-p (expand-file-name image d2ei)) d2ei)
205 ((file-exists-p (expand-file-name image d1ei)) d1ei)))))
219 image-search-load-path (file &optional path)
297 (defmacro mh-write-file-functions ()
298 "Return `write-file-functions' if it exists.
299 Otherwise return `local-write-file-hooks'.
303 (if (boundp 'write-file-functions)
304 ''write-file-functions ;Emacs 22 on
305 ''local-write-file-hooks)) ;XEmacs