[Emacs-diffs] /srv/bzr/emacs/trunk r110935: Silence some warnings.

[Juanma Barranquero]

------------------------------------------------------------
revno: 110935
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Sun 2012-11-18 02:20:04 +0100
message:
  Silence some warnings.
  
  lisp/woman.el (woman-non-underline-faces): Use `set-face-underline'.
  lisp/calc/calc.el (math-format-date-cache): Declare.
modified:
  lisp/ChangeLog
  lisp/calc/calc.el
  lisp/woman.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-17 22:01:59 +0000
+++ b/lisp/ChangeLog    2012-11-18 01:20:04 +0000
@@ -1,3 +1,8 @@
+2012-11-18  Juanma Barranquero  <address@hidden>
+
+       * woman.el (woman-non-underline-faces): Use `set-face-underline'.
+       * calc/calc.el (math-format-date-cache): Declare.
+
 2012-11-17  Paul Eggert  <address@hidden>
 
        * calc/calc-forms.el (math-julian-date-beginning)

=== modified file 'lisp/calc/calc.el'
--- a/lisp/calc/calc.el 2012-11-17 21:30:43 +0000
+++ b/lisp/calc/calc.el 2012-11-18 01:20:04 +0000
@@ -464,7 +464,9 @@
   :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 @@
                  (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)

=== modified file 'lisp/woman.el'
--- a/lisp/woman.el     2012-11-17 21:52:12 +0000
+++ b/lisp/woman.el     2012-11-18 01:20:04 +0000
@@ -2196,7 +2196,7 @@
                 (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
 ;; =============