]> code.delx.au - gnu-emacs/blobdiff - lisp/eshell/esh-util.el
Update copyright year to 2015
[gnu-emacs] / lisp / eshell / esh-util.el
index 3bb6e8f31c7c711b2f1a1c95ac0a1a9c0f63a657..697f97e04605de670d3f37e07a3491fbb9ae1fc8 100644 (file)
@@ -1,6 +1,6 @@
 ;;; esh-util.el --- general utilities  -*- lexical-binding:t -*-
 
-;; Copyright (C) 1999-2014 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2015 Free Software Foundation, Inc.
 
 ;; Author: John Wiegley <johnw@gnu.org>
 
@@ -539,7 +539,7 @@ Unless optional argument INPLACE is non-nil, return a new string."
 
 (defmacro eshell-with-file-modes (modes &rest forms)
   "Evaluate, with file-modes set to MODES, the given FORMS."
-  (declare (obsolete with-file-modes "24.5"))
+  (declare (obsolete with-file-modes "25.1"))
   `(with-file-modes ,modes ,@forms))
 
 (defmacro eshell-with-private-file-modes (&rest forms)
@@ -653,7 +653,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
                                   (match-string 6))))
                      (if (nth 0 moment)
                          (setcar (nthcdr 5 moment)
-                                 (nth 5 (decode-time (current-time))))
+                                 (nth 5 (decode-time)))
                        (setcar (nthcdr 0 moment) 0)
                        (setcar (nthcdr 1 moment) 0)
                        (setcar (nthcdr 2 moment) 0))