2 files changed, 4 insertions, 4 deletions

diff --git a/lisp/org/org.el b/lisp/org/org.el
index e45bc55b244..21d9cd8785d 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -10058,7 +10058,7 @@ Note: this function also decodes single byte encodings like
                   (cons 6 128))))
           (when (>= val 192) (setq eat (car shift-xor)))
           (setq val (logxor val (cdr shift-xor)))
-          (setq sum (+ (lsh sum (car shift-xor)) val))
+          (setq sum (+ (ash sum (car shift-xor)) val))
           (when (> eat 0) (setq eat (- eat 1)))
           (cond
            ((= 0 eat)                   ;multi byte
diff --git a/lisp/org/ox-publish.el b/lisp/org/ox-publish.el
index 8901dba34cf..ba5a0232e42 100644
--- a/lisp/org/ox-publish.el
+++ b/lisp/org/ox-publish.el
@@ -794,8 +794,8 @@ Default for SITEMAP-FILENAME is `sitemap.org'."
                 ((or `anti-chronologically `chronologically)
                  (let* ((adate (org-publish-find-date a project))
                         (bdate (org-publish-find-date b project))
-                        (A (+ (lsh (car adate) 16) (cadr adate)))
-                        (B (+ (lsh (car bdate) 16) (cadr bdate))))
+                        (A (+ (ash (car adate) 16) (cadr adate)))
+                        (B (+ (ash (car bdate) 16) (cadr bdate))))
                    (setq retval
                          (if (eq sort-files 'chronologically)
                              (<= A B)
@@ -1348,7 +1348,7 @@ does not exist."
                (expand-file-name (or (file-symlink-p file) file)
                                  (file-name-directory file)))))
     (if (not attr) (error "No such file: \"%s\"" file)
-      (+ (lsh (car (nth 5 attr)) 16)
+      (+ (ash (car (nth 5 attr)) 16)
          (cadr (nth 5 attr))))))