From 2bd53dc0718af4f3184d213f096bde5bbcc46a90 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 30 Jan 2006 20:44:44 +0000 Subject: [PATCH] * image-mode.el (image-toggle-display): Use file name if possible, instead of unnecessarily allocating a (possibly huge) lisp string. --- lisp/ChangeLog | 5 +++++ lisp/image-mode.el | 13 ++++++++----- 2 files changed, 13 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ca86a0a27b6..5a03a2e8502 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-01-30 Chong Yidong + + * 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 * subr.el (toplevel): Define `cl-assertion-failed' condition here diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 67d1bcee995..3c0544edf89 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el @@ -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 -- 2.39.2