Mercurial > emacs
comparison lisp/ediff-init.el @ 30394:557b7595fdcc
(ediff-region-help-echo): Bind face-help.
author | Dave Love <fx@gnu.org> |
---|---|
date | Mon, 24 Jul 2000 09:44:02 +0000 |
parents | 6da8732233ea |
children | 6306740f6938 |
comparison
equal
deleted
inserted
replaced
30393:bcc6b338d8bf | 30394:557b7595fdcc |
---|---|
814 (defun ediff-region-help-echo (extent-or-window &optional overlay point) | 814 (defun ediff-region-help-echo (extent-or-window &optional overlay point) |
815 (unless overlay | 815 (unless overlay |
816 (setq overlay extent-or-window)) | 816 (setq overlay extent-or-window)) |
817 (let ((is-current (ediff-overlay-get overlay 'ediff)) | 817 (let ((is-current (ediff-overlay-get overlay 'ediff)) |
818 (face (ediff-overlay-get overlay 'face)) | 818 (face (ediff-overlay-get overlay 'face)) |
819 (diff-num (ediff-overlay-get overlay 'ediff-diff-num))) | 819 (diff-num (ediff-overlay-get overlay 'ediff-diff-num)) |
820 face-help) | |
820 | 821 |
821 ;; This happens only for refinement overlays | 822 ;; This happens only for refinement overlays |
822 (if (stringp face) | 823 (if (stringp face) |
823 (setq face (intern face))) | 824 (setq face (intern face))) |
824 (setq face-help (and face (get face 'ediff-help-echo))) | 825 (setq face-help (and face (get face 'ediff-help-echo))) |