Lines Matching +defs:after +defs:save +defs:hook
63 Differs from `save-excursion' in that it doesn't save the point and mark."
199 after setting."
202 (defcustom emerge-after-flag "^^^^^^^^^^^^^^^^^^^^\n"
205 after setting."
211 (defcustom emerge-startup-hook nil
212 "*Hook to run in the merge buffer after the merge has been set up."
213 :type 'hook
215 (defcustom emerge-select-hook nil
216 "*Hook to run after a difference has been selected.
218 :type 'hook
220 (defcustom emerge-unselect-hook nil
221 "*Hook to run after a difference has been unselected.
223 :type 'hook
254 (defvar emerge-after-flag-length)
255 (defvar emerge-after-flag-lines)
256 (defvar emerge-after-flag-match)
270 "Function to be called after `emerge-{before,after}-flag'.
271 This is called after these functions are changed to compute values that
277 (setq emerge-after-flag-length (length emerge-after-flag))
278 (setq emerge-after-flag-lines
279 (emerge-count-matches-string emerge-after-flag "\n"))
280 (setq emerge-after-flag-match (regexp-quote emerge-after-flag)))
406 ;; Suppress write-file and save-buffer
408 (define-key emerge-fast-keymap [remap save-buffer] 'emerge-query-save-buffer)
508 buffer-auto-save-file-name)
528 after the section. (If the section is empty, both markers point to the same
551 it. Used to save the local keymap during fast mode, when the local keymap is
561 (emerge-defvar-local emerge-quit-hook nil
562 "Hooks to run in the merge buffer after the merge has been finished.
626 (auto-save-mode 1)
641 (setq emerge-quit-hook quit-hooks)
646 (run-hooks 'startup-hooks 'emerge-startup-hook)
795 (auto-save-mode 1)
811 (setq emerge-quit-hook quit-hooks)
817 (run-hooks 'startup-hooks 'emerge-startup-hook)
843 ;; leave point after matched line
864 ;; This save-excursion allows emerge-get-diff3-group to be called for the
868 (save-excursion
906 (add-hook 'quit-hooks `(lambda () (emerge-files-exit ,file-out))))
928 (add-hook 'quit-hooks `(lambda () (emerge-files-exit ,file-out))))
936 ;; if merge was successful was given, save to disk
1222 ;; Break apart the tab (before =) and the filename (after =)
1226 ;; Move point after the entry
1430 ;; Suppress write-file and save-buffer
1434 (substitute-key-definition 'save-buffer
1435 'emerge-query-save-buffer
1438 (define-key emerge-edit-keymap [remap save-buffer] 'emerge-query-save-buffer)
1446 auto-save, and saves them in buffer local variables. Sets the buffers
1447 read-only and turns off `auto-save-mode'.
1449 ;; force auto-save, because we will turn off auto-saving in buffers for the
1451 (do-auto-save)
1457 (emerge-save-variables emerge-saved-variables)
1464 (emerge-save-variables emerge-saved-variables)
1612 (1- emerge-after-flag-length))
1620 (1- emerge-after-flag-length))
1628 (1- emerge-after-flag-length))
1872 buffer after this will cause serious problems."
1910 (run-hooks 'emerge-quit-hook)))
2080 (save-excursion
2094 (save-excursion
2100 Leaves point after text, mark before.
2101 With prefix argument, puts point before, mark after."
2118 Leaves point after text, mark before.
2119 With prefix argument, puts point before, mark after."
2135 "Leaves the point before this difference and the mark after it.
2136 With prefix argument, puts mark before, point after."
2190 (save-excursion
2448 ;; find first difference containing or after the current position
2503 (setq temp (save-excursion
2511 (setq temp (- temp emerge-after-flag-lines)))))
2632 (run-hooks 'emerge-select-hook))
2635 after-index)
2639 (emerge-place-flags-in-buffer1 difference before-index after-index))
2640 (emerge-place-flags-in-buffer1 difference before-index after-index)))
2642 (defun emerge-place-flags-in-buffer1 (difference before-index after-index)
2657 (let ((n (1- difference)) after-marker before-marker diff-list)
2662 after-marker (aref diff-list after-index))
2663 (= after-marker here)))
2664 (set-marker after-marker (1- after-marker))
2669 ;; insert the flag after the difference
2670 (let* ((after (aref (aref emerge-globalized-difference-list difference)
2671 after-index))
2672 (here (marker-position after)))
2675 (insert emerge-after-flag)
2676 ;; Put the marker(s) referring to this position 1 character after the
2680 (set-marker after (1+ after))
2681 (let ((n (1+ difference)) before-marker after-marker diff-list)
2689 (setq after-marker (aref diff-list after-index))
2690 (if (= after-marker here)
2691 (setq after-marker (1+ after-marker)))
2703 (run-hooks 'emerge-unselect-hook))
2705 (defun emerge-remove-flags-in-buffer (buffer before after)
2716 (goto-char (1- after))
2717 (if (looking-at emerge-after-flag-match)
2718 (delete-char emerge-after-flag-length)
2888 ;; These functions save (get the values of) and restore (set the values of)
2895 (defun emerge-save-variables (vars)
2931 (defun emerge-query-save-buffer ()
2932 "Ask the user whether to save an incomplete merge.
2933 If answer is yes, call `save-buffer' to do so. See `emerge-query-and-call'
2936 (emerge-query-and-call 'save-buffer))
2939 "Ask the user whether to save or write out the incomplete merge.
2969 ;; If buffer is not obsolete and is modified, offer to save
2971 (save-buffer)
3035 ;; (save-excursion
3112 (save-window-excursion
3128 ;; Improved auto-save file names.
3129 ;; This function fixes many problems with the standard auto-save file names:
3130 ;; Auto-save files for non-file buffers get put in the default directory
3132 ;; Auto-save files for file buffers get put in the directory of the file,
3134 ;; Auto-save files for non-file buffers don't use the process id, so if a
3135 ;; user runs more than on Emacs, they can make auto-save files that overwrite
3138 ;; (fset 'make-auto-save-file-name
3139 ;; (symbol-function 'emerge-make-auto-save-file-name))
3140 (defun emerge-make-auto-save-file-name ()
3142 Does not consider `auto-save-visited-file-name';
3145 See also `auto-save-file-name-p'."