emacs/lisp/ediff-util.el

40 (defvar mark-active)
43 (defvar ediff-after-quit-hook-internal nil)
127   (run-hooks 'ediff-mode-hook))
262   (run-hooks 'ediff-keymap-setup-hook))
275   (run-hooks 'ediff-before-setup-hook)
314        (make-local-hook 'ediff-after-quit-hook-internal) ; xemacs form
340        (make-local-hook 'pre-command-hook) ; xemacs form
345 	  (add-hook 'pre-command-hook 'ediff-spy-after-mouse nil 'local))
377 	      (add-hook 'local-write-file-hooks 'ediff-set-merge-mode nil t)
449 	(run-hooks 'ediff-prepare-buffer-hook)
463 	(run-hooks 'ediff-prepare-buffer-hook)
481 	    (run-hooks 'ediff-prepare-buffer-hook)
496 	    (run-hooks 'ediff-prepare-buffer-hook)
555       (run-hooks 'ediff-startup-hook)
867 	      (ediff-deactivate-mark)
2459 	(after-quit-hook-internal ediff-after-quit-hook-internal)
2514 	  (run-hooks 'ediff-quit-merge-hook))
2517   (run-hooks 'ediff-cleanup-hook)
2526   ;; one hook here is ediff-cleanup-mess, which kills the control buffer and
2527   ;; other auxiliary buffers. we made it into a hook to let the users do their
2529   (run-hooks 'ediff-quit-hook)
2542   (run-hooks 'after-quit-hook-internal)
2643 ediff-quit-merge-hook.
2689   "Default hook to run on quitting a merge job.
2822   (run-hooks 'ediff-suspend-hook)
2963 	;; set current difference here so the hook will be able to refer to it
2965 	(run-hooks 'ediff-select-hook))))
2994 	(run-hooks 'ediff-unselect-hook))))
3355     (ediff-activate-mark)
3397       (set-mark reg-end)
3601      nil     	     	     	; setup-hook
4062 (defun ediff-deactivate-mark ()
4065    (deactivate-mark) ; emacs
4067 (defun ediff-activate-mark ()
4069    (zmacs-activate-region) ; xemacs
4071      (make-local-variable 'transient-mark-mode)
4072      (setq mark-active t
4073 	   transient-mark-mode t) ; emacs
4189    (make-local-hook 'post-command-hook) ; xemacs form
4193   (let ((pre-hook 'pre-command-hook)
4194 	(post-hook 'post-command-hook))
4196 	(progn (remove-hook pre-hook 'ediff-save-time)
4197 	       (remove-hook post-hook 'ediff-calc-command-time)
4200       (add-hook pre-hook 'ediff-save-time t 'local)
4201       (add-hook post-hook 'ediff-calc-command-time nil 'local)
4320 (run-hooks 'ediff-load-hook)
4326 ;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun)
4327 ;;; eval: (put 'ediff-with-current-buffer 'lisp-indent-hook 1)