]> code.delx.au - gnu-emacs/blobdiff - lisp/calc/calc-forms.el
* lib/ignore-value.h: New file.
[gnu-emacs] / lisp / calc / calc-forms.el
index 16d14ae55b5244ff954b37c4eeb00694954ecf6b..912bbc7f78da2d306011d9839122ec17584264b5 100644 (file)
@@ -1,7 +1,6 @@
 ;;; calc-forms.el --- data format conversion functions for Calc
 
-;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1990-1993, 2001-2011 Free Software Foundation, Inc.
 
 ;; Author: David Gillespie <daveg@synaptics.com>
 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
@@ -81,7 +80,7 @@
 (defun calc-date-notation (fmt arg)
   (interactive "sDate format (e.g., M/D/YY h:mm:ss): \nP")
   (calc-wrapper
-   (if (equal fmt "")
+   (if (string-match-p "\\`\\s-*\\'" fmt)
        (setq fmt "1"))
    (if (string-match "\\` *[0-9] *\\'" fmt)
        (setq fmt (nth (string-to-number fmt) calc-standard-date-formats)))
               (calc-group-digits nil)
               (calc-leading-zeros nil)
               (calc-number-radix 10)
+               (calc-twos-complement-mode nil)
               math-fd-year math-fd-month math-fd-day math-fd-weekday
                math-fd-hour math-fd-minute math-fd-second
               (math-fd-bc-flag nil)
@@ -1921,5 +1921,4 @@ and ends on the last Sunday of October at 2 a.m."
 
 (provide 'calc-forms)
 
-;; arch-tag: a3d8f33b-9508-4043-8060-d02b8c9c750c
 ;;; calc-forms.el ends here