1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/image.el b/lisp/image.el
index 8d12b680ea9..74a23046e94 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -261,7 +261,7 @@ We accept the tag Exif because that is the same format."
           (setq i (1+ i))
           (when (>= (+ i 2) len)
             (throw 'jfif nil))
-          (let ((nbytes (+ (lsh (aref data (+ i 1)) 8)
+          (let ((nbytes (+ (ash (aref data (+ i 1)) 8)
                            (aref data (+ i 2))))
                 (code (aref data i)))
             (when (and (>= code #xe0) (<= code #xef))