From 02f34c7046309acb4772efc0d847a93e752f5b4e Mon Sep 17 00:00:00 2001 From: Michael Kifer Date: Sun, 9 Sep 2001 22:33:38 +0000 Subject: 2001-09-09 Michael Kifer * ediff-init.el (ediff-highest-priority): bug fix. * viper-cmd.el (viper-special-read-and-insert-char): new function that reads a character and uses the current input method or iso-accents when appropriate. * viper.el and all others: corrections to the comment blocks at the top. --- lisp/ediff-init.el | 27 +++++++++++++++------------ 1 file changed, 15 insertions(+), 12 deletions(-) (limited to 'lisp/ediff-init.el') diff --git a/lisp/ediff-init.el b/lisp/ediff-init.el index fa8e0e9b794..b701ae6685f 100644 --- a/lisp/ediff-init.el +++ b/lisp/ediff-init.el @@ -1202,18 +1202,21 @@ this variable represents.") (setq pos (next-overlay-change pos))) (+ 1 ediff-shadow-overlay-priority (apply 'max - (mapcar - (lambda (ovr) - (if (and ovr - ;; exclude ediff overlays from priority - ;; calculation, or else priority will keep - ;; increasing - (null (ediff-overlay-get ovr 'ediff)) - (null (ediff-overlay-get ovr 'ediff-diff-num))) - ;; use the overlay priority or 0 - (or (ediff-overlay-get ovr 'priority) 0) - 0)) - ovr-list) + (cons + 1 + (mapcar + (lambda (ovr) + (if (and ovr + ;; exclude ediff overlays from priority + ;; calculation, or else priority will keep + ;; increasing + (null (ediff-overlay-get ovr 'ediff)) + (null (ediff-overlay-get ovr 'ediff-diff-num))) + ;; use the overlay priority or 0 + (or (ediff-overlay-get ovr 'priority) 0) + 0)) + ovr-list) + ) )) )))) -- cgit v1.2.1