mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
Make compat alias image-refresh obsolete
* lisp/image.el (image-refresh): Make compat alias obsolete. Update callers.
This commit is contained in:
parent
2ebfd7188f
commit
1137219c97
3 changed files with 5 additions and 4 deletions
|
|
@ -32,7 +32,6 @@
|
|||
:group 'multimedia)
|
||||
|
||||
(declare-function image-flush "image.c" (spec &optional frame))
|
||||
(defalias 'image-refresh 'image-flush)
|
||||
|
||||
(defconst image-type-header-regexps
|
||||
`(("\\`/[\t\n\r ]*\\*.*XPM.\\*/" . xpm)
|
||||
|
|
@ -1304,6 +1303,8 @@ changing the displayed image size does not affect the saved image."
|
|||
(setf (image-property image :flip)
|
||||
(not (image-property image :flip)))))
|
||||
|
||||
(define-obsolete-function-alias 'image-refresh #'image-flush "29.1")
|
||||
|
||||
(provide 'image)
|
||||
|
||||
;;; image.el ends here
|
||||
|
|
|
|||
|
|
@ -622,7 +622,7 @@ manner suitable for prepending to a user-specified script."
|
|||
(dolist (img-overlay org-inline-image-overlays)
|
||||
(when (string= img-file (plist-get (cdr (overlay-get img-overlay 'display)) :file))
|
||||
(when (file-exists-p img-file)
|
||||
(image-refresh (overlay-get img-overlay 'display))))))
|
||||
(image-flush (overlay-get img-overlay 'display))))))
|
||||
|
||||
;;-----------------------------------------------------------------------------
|
||||
;; facade functions
|
||||
|
|
|
|||
|
|
@ -16487,7 +16487,7 @@ INCLUDE-LINKED is passed to `org-display-inline-images'."
|
|||
(org-toggle-inline-images)))
|
||||
|
||||
;; For without-x builds.
|
||||
(declare-function image-refresh "image" (spec &optional frame))
|
||||
(declare-function image-flush "image" (spec &optional frame))
|
||||
|
||||
(defcustom org-display-remote-inline-images 'skip
|
||||
"How to display remote inline images.
|
||||
|
|
@ -16628,7 +16628,7 @@ buffer boundaries with possible narrowing."
|
|||
(org-element-property :begin link)
|
||||
'org-image-overlay)))
|
||||
(if (and (car-safe old) refresh)
|
||||
(image-refresh (overlay-get (cdr old) 'display))
|
||||
(image-flush (overlay-get (cdr old) 'display))
|
||||
(let ((image (org--create-inline-image file width)))
|
||||
(when image
|
||||
(let ((ov (make-overlay
|
||||
|
|
|
|||
Loading…
Reference in a new issue