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))) |