Lines Matching defs:save
67 ;; - Moved save-all conditions to `fast-lock-save-cache'
68 ;; - Added `fast-lock-save-text-properties' to `kill-buffer-hook'
80 ;; - Made `fast-lock-save-cache-external' create cache directory
81 ;; - Made `fast-lock-save-cache-external' save `font-lock-keywords'
96 ;; - Changed `fast-lock-save-cache-external' to `fast-lock-save-cache-data'
108 ;; - Made `fast-lock-save-cache-data' use a buffer (from Rick Sladkey)
115 ;; - Renamed `fast-lock-save-size' to `fast-lock-minimum-size'
116 ;; - Made `fast-lock-save-cache' output a message if no save ever attempted
117 ;; - Made `fast-lock-save-cache-data' output a message if save attempted
119 ;; - Made `fast-lock-save-cache-data' do `condition-case' not `unwind-protect'
120 ;; - Made `fast-lock-save-cache' and `fast-lock-read-cache' return nothing
121 ;; - Made `fast-lock-save-cache' check `buffer-modified-p' (Stig)
122 ;; - Added `fast-lock-save-events'
123 ;; - Added `fast-lock-after-save-hook' to `after-save-hook' (Stig)
125 ;; - Changed `fast-lock-save-caches' to `fast-lock-kill-emacs-hook'
127 ;; - Made `fast-lock-save-cache' check `verify-visited-file-modtime' (Stig)
129 ;; - Made `fast-lock-save-cache-1' and `fast-lock-cache-data' use/reformat it
132 ;; - Added `fast-lock-save-faces' list of faces to save (idea from Stig/Tibor)
137 ;; - Made `fast-lock-save-cache' do `cdr-safe' not `cdr' (from Dave Foster)
138 ;; - Made `fast-lock-save-cache' do `set-buffer' first (from Dave Foster)
139 ;; - Made `fast-lock-save-cache' loop until saved or quit (from Georg Nikodym)
150 ;; - Made `fast-lock-save-cache' cope if `fast-lock-minimum-size' is an a list
157 ;; - XEmacs: Made `fast-lock-save-faces' default to `font-lock-face-list'
158 ;; - Made `fast-lock-save-cache' use `font-lock-value-in-major-mode'
159 ;; - Wrap with `save-buffer-state' (Ray Van Tassle report)
168 ;; - Made `save-buffer-state' wrap `inhibit-point-motion-hooks'
173 ;; - Made `fast-lock-save-cache-1' save syntactic fontification data
200 (defmacro save-buffer-state (varlist &rest body)
210 (put 'save-buffer-state 'lisp-indent-function 1)
213 (defmacro fast-lock-save-facep (face)
214 "Return non-nil if FACE is one of `fast-lock-save-faces'."
215 `(or (null fast-lock-save-faces)
217 (memq ,face fast-lock-save-faces)
219 (while (unless (memq (car faces) fast-lock-save-faces)
247 ;; fast-lock-save-others fast-lock-save-events fast-lock-save-faces
299 An attempt will be made to save or read Font Lock cache files using these items
320 (defcustom fast-lock-save-events '(kill-buffer kill-emacs)
322 Valid events are `save-buffer', `kill-buffer' and `kill-emacs'.
324 buffer, then you should add `save-buffer' to this list."
325 :type '(set (const :tag "buffer saving" save-buffer)
330 (defcustom fast-lock-save-others t
331 "*If non-nil, save Font Lock cache files irrespective of file owner.
345 (defvar fast-lock-save-faces
346 (when (save-match-data (string-match "XEmacs" (emacs-version)))
368 - When you save the file's buffer.
371 Depending on the value of `fast-lock-save-events'.
372 See also the commands `fast-lock-read-cache' and `fast-lock-save-cache'.
378 For saving, see variables `fast-lock-minimum-size', `fast-lock-save-events',
379 `fast-lock-save-others' and `fast-lock-save-faces'."
431 (defun fast-lock-save-cache (&optional buffer)
436 - The event must be one of `fast-lock-save-events'.
438 - The buffer file must be owned by you, or `fast-lock-save-others' must be t.
447 (save-excursion
454 ;; "Only save if the buffer matches the file, the file has
457 ;; Only save if the buffer is not modified,
458 ;; (i.e., so we don't save for something not on disk)
464 ;; (i.e., a save has occurred since the cache was read)
467 ;; Only save if user's restrictions are satisfied.
469 (or fast-lock-save-others
472 ;; Only save if there are `face' properties to save.
475 ;; Try each directory until we manage to save or the user quits.
481 (setq saved (fast-lock-save-cache-1 file file-timestamp)))
507 (defun fast-lock-save-cache-after-save-file ()
508 ;; Do `fast-lock-save-cache' if `save-buffer' is on `fast-lock-save-events'.
509 (when (memq 'save-buffer fast-lock-save-events)
510 (fast-lock-save-cache)))
512 (defun fast-lock-save-cache-before-kill-buffer ()
513 ;; Do `fast-lock-save-cache' if `kill-buffer' is on `fast-lock-save-events'.
514 (when (memq 'kill-buffer fast-lock-save-events)
515 (fast-lock-save-cache)))
517 (defun fast-lock-save-caches-before-kill-emacs ()
518 ;; Do `fast-lock-save-cache's if `kill-emacs' is on `fast-lock-save-events'.
519 (when (memq 'kill-emacs fast-lock-save-events)
520 (mapcar 'fast-lock-save-cache (buffer-list))))
538 (when (save-match-data (string-match (car directory) bufile))
593 (defun fast-lock-save-cache-1 (file timestamp)
595 ;; Returns non-nil if a save was attempted to a writable cache file.
605 (save-excursion
679 ; (save-restriction
699 ;Only those `face' VALUEs in `fast-lock-save-faces' are returned."
700 ; (save-restriction
702 ; (let ((faces (or fast-lock-save-faces (face-list))) (limit (point-max))
719 (save-restriction
729 ((fast-lock-save-facep value)
737 (save-restriction
757 (save-buffer-state (plist regions)
758 (save-restriction
783 (when (save-match-data (string-match "XEmacs" (emacs-version)))
791 Only those `face' VALUEs in `fast-lock-save-faces' are returned."
792 (save-restriction
798 ;; We're only interested if it's one of `fast-lock-save-faces'.
799 (when (and value (fast-lock-save-facep value))
820 (save-restriction
868 (add-hook 'after-save-hook 'fast-lock-save-cache-after-save-file)
869 (add-hook 'kill-buffer-hook 'fast-lock-save-cache-before-kill-buffer)
870 (add-hook 'kill-emacs-hook 'fast-lock-save-caches-before-kill-emacs)