[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 4fbe0ef 1/2: Remove XEmacs compat code from ediff-h
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 4fbe0ef 1/2: Remove XEmacs compat code from ediff-help.el |
Date: |
Tue, 1 Oct 2019 10:55:59 -0400 (EDT) |
branch: master
commit 4fbe0ef20d27887ce605c5af2f047a877fb977aa
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Remove XEmacs compat code from ediff-help.el
* lisp/vc/ediff-help.el (ediff-help-region-map)
(ediff-set-help-overlays, ediff-help-for-quick-help): Remove
XEmacs compat code.
---
lisp/vc/ediff-help.el | 22 +++++++---------------
1 file changed, 7 insertions(+), 15 deletions(-)
diff --git a/lisp/vc/ediff-help.el b/lisp/vc/ediff-help.el
index 05f17ac..e8a76c0 100644
--- a/lisp/vc/ediff-help.el
+++ b/lisp/vc/ediff-help.el
@@ -156,10 +156,7 @@ the value of this variable and the variables
`ediff-help-message-*' in
;; the keymap that defines clicks over the quick help regions
(defvar ediff-help-region-map (make-sparse-keymap))
-(define-key
- ediff-help-region-map
- (if (featurep 'emacs) [mouse-2] [button2])
- 'ediff-help-for-quick-help)
+(define-key ediff-help-region-map [mouse-2] 'ediff-help-for-quick-help)
;; runs in the control buffer
(defun ediff-set-help-overlays ()
@@ -170,9 +167,7 @@ the value of this variable and the variables
`ediff-help-message-*' in
end (match-end 0)
cmd (buffer-substring (match-beginning 1) (match-end 1)))
(setq overl (ediff-make-overlay beg end))
- (if (featurep 'emacs)
- (ediff-overlay-put overl 'mouse-face 'highlight)
- (ediff-overlay-put overl 'highlight t))
+ (ediff-overlay-put overl 'mouse-face 'highlight)
(ediff-overlay-put overl 'ediff-help-info cmd))))
@@ -181,14 +176,11 @@ the value of this variable and the variables
`ediff-help-message-*' in
(interactive)
(ediff-barf-if-not-control-buffer)
(let ((pos (ediff-event-point last-command-event))
- overl cmd)
-
- (if (featurep 'xemacs)
- (setq overl (extent-at pos (current-buffer) 'ediff-help-info)
- cmd (ediff-overlay-get overl 'ediff-help-info))
- (setq cmd (car (mapcar (lambda (elt)
- (overlay-get elt 'ediff-help-info))
- (overlays-at pos)))))
+ cmd)
+
+ (setq cmd (car (mapcar (lambda (elt)
+ (overlay-get elt 'ediff-help-info))
+ (overlays-at pos))))
(if (not (stringp cmd))
(user-error "Hmm... I don't see an Ediff command around here..."))