aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2001-09-07 12:42:12 +0000
committerEli Zaretskii2001-09-07 12:42:12 +0000
commit70569550f7cb9673a9f0ef9a5815527f73eee253 (patch)
treecd5cd6f23251d39073f5d188e66d316561d43568
parenta56ebb90180139f03bce577f420630816a5845af (diff)
downloademacs-70569550f7cb9673a9f0ef9a5815527f73eee253.tar.gz
emacs-70569550f7cb9673a9f0ef9a5815527f73eee253.zip
(archive-dostime): Fix a typo in minutes' computation.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/arc-mode.el2
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca57a827888..249e46e06e8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12001-09-07 Eli Zaretskii <eliz@is.elta.co.il>
2
3 * arc-mode.el (archive-dostime): Fix a typo in minutes'
4 computation.
5
12001-09-07 Gerd Moellmann <gerd@gnu.org> 62001-09-07 Gerd Moellmann <gerd@gnu.org>
2 7
3 * server.el (server-switch-buffer): Use get-window-with-predicate. 8 * server.el (server-switch-buffer): Use get-window-with-predicate.
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 3a0c2321232..987f29f1540 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -447,7 +447,7 @@ the mode is invalid. If ERROR is nil then nil will be returned."
447(defun archive-dostime (time) 447(defun archive-dostime (time)
448 "Stringify dos packed TIME record." 448 "Stringify dos packed TIME record."
449 (let ((hour (logand (ash time -11) 31)) 449 (let ((hour (logand (ash time -11) 31))
450 (minute (logand (ash time -5) 53)) 450 (minute (logand (ash time -5) 63))
451 (second (* 2 (logand time 31)))) ; 2 seconds resolution 451 (second (* 2 (logand time 31)))) ; 2 seconds resolution
452 (format "%02d:%02d:%02d" hour minute second))) 452 (format "%02d:%02d:%02d" hour minute second)))
453 453