comparison lisp/ediff-util.el @ 52828:d08ef8842be1

2003-10-12 Michael Kifer <kifer@cs.stonybrook.edu> * ediff-mult.el (ediff-filegroup-action): use ediff-default-filtering-regexp. * ediff-util.el (ediff-recenter): don't call ediff-restore-highlighting twice. (ediff-select-difference): set current difference. (ediff-unselect-and-select-difference): added comment. * ediff.el (ediff-directories,ediff-directory-revisions, ediff-directories3,ediff-merge-directories, ediff-merge-directories-with-ancestor,ediff-merge-directory-revisions, ediff-merge-directory-revisions-with-ancestor): use ediff-default-filtering-regexp.
author Michael Kifer <kifer@cs.stonybrook.edu>
date Mon, 13 Oct 2003 01:28:49 +0000
parents 695cf19ef79e
children 6a6dc234f296
comparison
equal deleted inserted replaced
52827:7d76fa8c5eda 52828:d08ef8842be1
824 (ediff-reset-mouse 824 (ediff-reset-mouse
825 control-frame 825 control-frame
826 (eq this-command 'ediff-quit)))) 826 (eq this-command 'ediff-quit))))
827 )) 827 ))
828 828
829 (ediff-restore-highlighting) 829 (or no-rehighlight
830 (ediff-restore-highlighting))
830 (ediff-with-current-buffer control-buf (ediff-refresh-mode-lines)) 831 (ediff-with-current-buffer control-buf (ediff-refresh-mode-lines))
831 )) 832 ))
832 833
833 ;; this function returns to the window it was called from 834 ;; this function returns to the window it was called from
834 ;; (which was the control window) 835 ;; (which was the control window)
2938 'Ancestor ediff-ancestor-buffer 2939 'Ancestor ediff-ancestor-buffer
2939 ediff-control-buffer n)) 2940 ediff-control-buffer n))
2940 )) 2941 ))
2941 2942
2942 (ediff-install-fine-diff-if-necessary n) 2943 (ediff-install-fine-diff-if-necessary n)
2944 ;; set current difference here so the hook will be able to refer to it
2945 (setq ediff-current-difference n)
2943 (run-hooks 'ediff-select-hook)))) 2946 (run-hooks 'ediff-select-hook))))
2944 2947
2945 2948
2946 ;; Unselect a difference by removing the ASCII flags in the buffers. 2949 ;; Unselect a difference by removing the ASCII flags in the buffers.
2947 ;; This may have to be modified for buffer C, when it will be supported. 2950 ;; This may have to be modified for buffer C, when it will be supported.
2989 (or (eq flag 'select-only) 2992 (or (eq flag 'select-only)
2990 (ediff-unselect-difference ediff-current-difference)) 2993 (ediff-unselect-difference ediff-current-difference))
2991 2994
2992 (or (eq flag 'unselect-only) 2995 (or (eq flag 'unselect-only)
2993 (ediff-select-difference n)) 2996 (ediff-select-difference n))
2997 ;; need to set current diff here even though it is also set in
2998 ;; ediff-select-difference because ediff-select-difference might not
2999 ;; be called if unselect-only is specified
2994 (setq ediff-current-difference n) 3000 (setq ediff-current-difference n)
2995 ) ; end protected section 3001 ) ; end protected section
2996 3002
2997 (ediff-with-current-buffer control-buf (ediff-refresh-mode-lines))) 3003 (ediff-with-current-buffer control-buf (ediff-refresh-mode-lines)))
2998 )) 3004 ))