Mercurial > emacs
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 |