Lines Matching +defs:other +defs:file
10 ;; This file is part of GNU Emacs.
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
36 (defun diary-check-diary-file ()
37 "Check that the file specified by `diary-file' exists and is readable.
38 If so, return the expanded file name, otherwise signal an error."
39 (let ((d-file (substitute-in-file-name diary-file)))
40 (if (and d-file (file-exists-p d-file))
41 (if (file-readable-p d-file)
42 d-file
43 (error "Diary file `%s' is not readable" diary-file))
44 (error "Diary file `%s' does not exist" diary-file))))
51 does nothing. This function is suitable for execution in a `.emacs' file."
53 (diary-check-diary-file)
60 Searches the file named in `diary-file' for entries that
64 (diary-check-diary-file)
67 (defun view-other-diary-entries (arg d-file)
68 "Prepare and display buffer of diary entries from an alternative diary file.
71 D-FILE specifies the file to use as the diary file."
74 (read-file-name "Enter diary file name: " default-directory nil t)))
75 (let ((diary-file d-file))
109 "Add any Islamic date entries from the diary file to `diary-entries-list'.")
121 "Add any Baha'i date entries from the diary file to `diary-entries-list'.")
145 "Add any Hebrew date entries from the diary file to `diary-entries-list'.")
176 "The syntax table used when parsing dates in the diary file.
214 diary-glob-file-regexp-prefix is prepended to the regexps before each
230 regexp (concat diary-glob-file-regexp-prefix regexp))
263 just visiting the `diary-file'), and SYMBOL's value is to be changed."
305 ;; displaying the diary and just visiting the diary file. However,
313 ;; just visiting the diary-file. This is i) unlikely, and ii) no great loss.
317 (and diary-file
318 (find-buffer-visiting (substitute-in-file-name diary-file)))))
353 Can be used by programs integrating a diary list into other buffers (e.g.
364 the entry as it appears in the diary-file; LITERAL is the entry
365 as it appears in the diary-file (i.e. before expansion). If
370 FILENAME being the file containing the diary entry."
372 (if diary-file-name-prefix
373 (let ((prefix (funcall diary-file-name-prefix-function
374 (buffer-file-name))))
383 (list marker (buffer-file-name) literal)
388 "Create and display a buffer containing the relevant lines in `diary-file'.
390 for NUMBER days starting with date DATE. The other entries are hidden
405 and each included file. Usually used for Hebrew or Islamic
406 diary entries in files. Applied to *each* file.
410 from other files or to sort the diary entries. Invoked *once* only,
429 file-glob-attrs
431 (d-file (substitute-in-file-name diary-file)))
434 (let ((diary-buffer (find-buffer-visiting d-file)))
436 (set-buffer (find-file-noselect d-file t))
438 (or (verify-visited-file-modtime diary-buffer)
446 ;; clobbers file local variables.
455 (setq file-glob-attrs (nth 1 (diary-pull-attrs nil "")))
513 ;; overlays) was used, diary file used to
531 temp (diary-pull-attrs entry file-glob-attrs)
561 (defun include-other-diary-files ()
562 "Include the diary entries from other diary files with those of diary-file.
568 are obeyed. You can change the `#include' to some other string by
577 (let* ((diary-file (substitute-in-file-name
580 (list-diary-entries-hook 'include-other-diary-files)
583 (if (file-exists-p diary-file)
584 (if (file-readable-p diary-file)
589 (with-current-buffer (find-buffer-visiting diary-file)
592 (message "Can't read included diary file %s" diary-file)
595 (message "Can't find included diary file %s" diary-file)
628 (find-buffer-visiting (substitute-in-file-name diary-file))
650 markbuf file)
657 (or (and (setq file (cadr locator))
658 (file-exists-p file)
659 (find-file-other-window file)
673 (with-current-buffer ;; Turn off selective-display in the diary file's buffer.
674 (find-buffer-visiting (substitute-in-file-name diary-file))
828 (find-buffer-visiting (substitute-in-file-name diary-file))))
861 "Show all of the diary entries in the diary file.
862 This function gets rid of the selective display of the diary file so that
866 (let ((d-file (diary-check-diary-file))
868 (with-current-buffer (or (find-buffer-visiting d-file)
869 (find-file-noselect d-file t))
895 `emacs -batch' does not load your `.emacs' file, you must ensure that
902 diary-file \\\"/path/to/diary.file\\\" \\
952 Each entry in the diary file visible in the calendar window is
962 ;; the last #include file processed).
970 file-glob-attrs marks)
971 (with-current-buffer (find-file-noselect (diary-check-diary-file) t)
976 (setq file-glob-attrs (nth 1 (diary-pull-attrs nil '())))
1044 file-glob-attrs)))
1070 Each entry in the diary file (or included files) visible in the calendar window
1077 (file-glob-attrs (nth 1 (diary-pull-attrs nil '())))
1078 m y first-date last-date mark file-glob-attrs)
1123 (setq marks (diary-pull-attrs entry file-glob-attrs)
1124 marks (nth 1 (diary-pull-attrs entry file-glob-attrs)))
1133 "Mark the diary entries from other diary files with those of the diary file.
1136 specified in the diary-file by lines of this form:
1139 are obeyed. You can change the `#include' to some other string by
1148 (let* ((diary-file (substitute-in-file-name
1151 (dbuff (find-buffer-visiting diary-file)))
1152 (if (file-exists-p diary-file)
1153 (if (file-readable-p diary-file)
1157 (kill-buffer (find-buffer-visiting diary-file))))
1159 (message "Can't read included diary file %s" diary-file)
1162 (message "Can't find included diary file %s" diary-file)
1264 "Add sexp entries for DATE from the diary file to `diary-entries-list'.
1265 Also, Make them visible in the diary file. Returns t if any entries were
1431 entry-found file-glob-attrs marks)
1434 (setq file-glob-attrs (nth 1 (diary-pull-attrs nil '()))))
1472 (setq temp (diary-pull-attrs entry file-glob-attrs)
1496 diary-file sexp)
1742 (defun make-diary-entry (string &optional nonmarking file)
1745 `diary-file'."
1747 (find-file-other-window (substitute-in-file-name (or file diary-file))))
1864 "Major mode for editing the diary file."
1907 ;; Any number of " other holiday name" lines, followed by "==" line.
2091 Subject field. Any other `%' characters must be doubled, so that the