|
1 |
|
| 1 |
2 |
;;; xwidget.el --- api functions for xwidgets |
| 2 |
3 |
;; see xwidget.c for more api functions |
| 3 |
4 |
|
| … |
| 93 |
94 |
(defmacro xwidget-image-mode-navigation-adaptor (fn) |
| 94 |
95 |
"Image code adaptor. `image-mode' FN is called." |
| 95 |
96 |
`(lambda () (interactive) |
| 96 |
|
( |
|
97 |
(cl-flet ((image-display-size (spec) (xwidget-image-display-size spec))) |
| 97 |
98 |
(funcall ,fn )))) |
| 98 |
99 |
|
| 99 |
100 |
(defmacro xwidget-image-mode-navigation-adaptor-p (fn) |
| 100 |
101 |
"Image code adaptor. `image-mode' FN is called with interactive arg." |
| 101 |
102 |
`(lambda (n) (interactive "p") |
| 102 |
|
( |
|
103 |
(cl-flet ((image-display-size (spec) (xwidget-image-display-size spec))) |
| 103 |
104 |
(funcall ,fn n)))) |
| 104 |
105 |
|
| 105 |
106 |
|