andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* image-mode.el (image-toggle-display): Use file name if possible,

Browse source 
instead of unnecessarily allocating a (possibly huge) lisp string.
This commit is contained in:
Chong Yidong 2006-01-30 20:44:44 +00:00
parent c45c309fe2
commit 2bd53dc071
2 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2006-01-30 Chong Yidong <cyd@stupidchicken.com>
* image-mode.el (image-toggle-display): Use file name if possible,
instead of unnecessarily allocating a (possibly huge) lisp string.
2006-01-30 John Paul Wallington <jpw@pobox.com>
* subr.el (toplevel): Define `cl-assertion-failed' condition here

13
lisp/image-mode.el
View file

@ -137,11 +137,14 @@ and showing the image as an image."
(message "Repeat this command to go back to displaying the image")))
;; Turn the image data into a real image, but only if the whole file
;; was inserted
(let* ((data
(string-make-unibyte
(buffer-substring-no-properties (point-min) (point-max))))
(image
(create-image data nil t))
(let* ((image
(if (and (buffer-file-name)
(not (buffer-modified-p)))
(create-image (buffer-file-name))
(create-image
(string-make-unibyte
(buffer-substring-no-properties (point-min) (point-max)))
nil t)))
(props
`(display ,image
intangible ,image