summaryrefslogtreecommitdiff
path: root/lisp/image-file.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/image-file.el')
-rw-r--r--lisp/image-file.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/image-file.el b/lisp/image-file.el
index afee88d1346..052cea8232b 100644
--- a/lisp/image-file.el
+++ b/lisp/image-file.el
@@ -1,6 +1,6 @@
;;; image-file.el --- Support for visiting image files
;;
-;; Copyright (C) 2000 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
;;
;; Author: Miles Bader <miles@gnu.org>
;; Keywords: multimedia
@@ -129,7 +129,10 @@ the command `insert-file-contents'."
(when visitingp
;; Inhibit the cursor when the buffer contains only an image,
;; because cursors look very strange on top of images.
- (setq cursor-type nil))))
+ (setq cursor-type nil)
+ ;; This just makes the arrow displayed in the right fringe
+ ;; area look correct when the image is wider than the window.
+ (setq truncate-lines t))))
rval))
(defun image-file-handler (operation &rest args)