Silence some warnings.

lisp/woman.el (woman-non-underline-faces): Use `set-face-underline'.
lisp/calc/calc.el (math-format-date-cache): Declare.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4c3f4e51ffb8aef503be8ae3c1059776383e0d8f..b1bd67fc47d82287d4ff2c9e26261b3659542371 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-11-18  Juanma Barranquero  <lekktu@gmail.com>
+
+       * woman.el (woman-non-underline-faces): Use `set-face-underline'.
+       * calc/calc.el (math-format-date-cache): Declare.
+
 2012-11-17  Paul Eggert  <eggert@cs.ucla.edu>
 
        * calc/calc-forms.el (math-julian-date-beginning)

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 2d75e897d9b8f80400126ea8bcef0fbb60c8f654..aeca45ebf262b21121758b0f70fdcebaec498bc4 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -464,7 +464,9 @@ to be identified as that note."
   :type 'string
   :group 'calc)
 
-;; Dates that are built-in options for `calc-gregorian-switch' should be 
+(defvar math-format-date-cache) ; calc-forms.el
+
+;; Dates that are built-in options for `calc-gregorian-switch' should be
 ;; (YEAR MONTH DAY math-date-from-gregorian-dt(YEAR MONTH DAY)) for speed.
 (defcustom calc-gregorian-switch nil
   "The first day the Gregorian calendar is used by Calc's date forms.
@@ -500,8 +502,8 @@ the United States."
                  (const :tag "Sweden (1753 3 1)" (1753 3 1 639965))
                  (const :tag "Switzerland (Catholic) (1584 1 22)" (1584 1 22 578200))
                  (const :tag "Switzerland (Protestant) (1701 1 12)" (1701 1 12 620924))
-                 (list :tag "(YEAR MONTH DAY)" 
-                       (integer :tag "Year") 
+                 (list :tag "(YEAR MONTH DAY)"
+                       (integer :tag "Year")
                        (integer :tag "Month (integer)")
                        (integer :tag "Day")))
   :set (lambda (symbol value)

diff --git a/lisp/woman.el b/lisp/woman.el
index 193dcd9902237a8cfb8a3c331789bbba883764bb..1410a8971ad8bc785e129ec6a10b161e583108a6 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -2196,7 +2196,7 @@ To be called on original buffer and any .so insertions."
                 (face-underline-p face))
            (let ((face-no-ul (intern (concat face-name "-no-ul"))))
              (copy-face face face-no-ul)
-             (set-face-underline-p face-no-ul nil)))))))
+             (set-face-underline face-no-ul nil)))))))
 
 ;; Preprocessors
 ;; =============