comparison lisp/ediff-init.el @ 14419:1315dc695abe

(ediff-event-point, ediff-event-buffer): Fix error format string.
author Karl Heuer <kwzh@gnu.org>
date Mon, 29 Jan 1996 23:12:01 +0000
parents 83f275dcd93a
children 3c38a5112cb6
comparison
equal deleted inserted replaced
14418:7f58ca0014ef 14419:1315dc695abe
1241 (if ediff-xemacs-p 1241 (if ediff-xemacs-p
1242 (event-point event) 1242 (event-point event)
1243 (posn-point (event-start event)))) 1243 (posn-point (event-start event))))
1244 ((ediff-key-press-event-p event) 1244 ((ediff-key-press-event-p event)
1245 (point)) 1245 (point))
1246 (t (error)))) 1246 (t (error ""))))
1247 1247
1248 (defun ediff-event-buffer (event) 1248 (defun ediff-event-buffer (event)
1249 (cond ((ediff-mouse-event-p event) 1249 (cond ((ediff-mouse-event-p event)
1250 (if ediff-xemacs-p 1250 (if ediff-xemacs-p
1251 (event-buffer event) 1251 (event-buffer event)
1252 (window-buffer (posn-window (event-start event))))) 1252 (window-buffer (posn-window (event-start event)))))
1253 ((ediff-key-press-event-p event) 1253 ((ediff-key-press-event-p event)
1254 (current-buffer)) 1254 (current-buffer))
1255 (t (error)))) 1255 (t (error ""))))
1256 1256
1257 1257
1258 (defsubst ediff-frame-iconified-p (frame) 1258 (defsubst ediff-frame-iconified-p (frame)
1259 (if (and (ediff-window-display-p) (frame-live-p frame)) 1259 (if (and (ediff-window-display-p) (frame-live-p frame))
1260 (if ediff-xemacs-p 1260 (if ediff-xemacs-p