Empty elements in EMACSLOADPATH now stand for the default

[bpt/emacs.git] / lisp / htmlfontify.el
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el

index b0bc5b6..8629c36 100644 (file)
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -1,6 +1,6 @@
  ;;; htmlfontify.el --- htmlize a buffer/source tree with optional hyperlinks
  
-;; Copyright (C) 2002-2003, 2009-2012 Free Software Foundation, Inc.
+;; Copyright (C) 2002-2003, 2009-2013 Free Software Foundation, Inc.
  
  ;; Emacs Lisp Archive Entry
  ;; Package: htmlfontify
@@ -15,7 +15,6 @@
  ;; Compatibility: Emacs23, Emacs22
  ;; Incompatibility: Emacs19, Emacs20, Emacs21
  ;; Last Updated: Thu 2009-11-19 01:31:21 +0000
-;; Version: 0.21
  
  ;; This file is part of GNU Emacs.
  
@@ -249,7 +248,8 @@ when not running under a window system."
    :tag   "init-kludge-hooks"
    :type  '(hook))
  
-(defcustom hfy-post-html-hooks nil
+(define-obsolete-variable-alias 'hfy-post-html-hooks 'hfy-post-html-hook "24.3")
+(defcustom hfy-post-html-hook nil
    "List of functions to call after creating and filling the HTML buffer.
  These functions will be called with the HTML buffer as the current buffer."
    :group   'htmlfontify
@@ -716,7 +716,7 @@ STYLE is the inline CSS stylesheet (or tag referring to an external sheet)."
  --> </script>
    </head>
    <body onload=\"stripe('index'); return true;\">\n"
-          file style))
+          (mapconcat 'hfy-html-quote (mapcar 'char-to-string file) "") style))
  
  (defun hfy-default-footer (_file)
    "Default value for `hfy-page-footer'.
@@ -747,6 +747,10 @@ if you've redefined white, (esp. if you've redefined it to have a triplet
  member lower than that of the color you are processing) strange things
  may happen."
    ;;(message "hfy-colour-vals");;DBUG
+  ;; TODO?  Can we do somehow do better than this?
+  (cond
+   ((equal colour "unspecified-fg") (setq colour "black"))
+   ((equal colour "unspecified-bg") (setq colour "white")))
    (let ((white (mapcar (lambda (I) (float (1+ I))) (hfy-colour-vals "white")))
          (rgb16 (mapcar (lambda (I) (float (1+ I))) (hfy-colour-vals  colour))))
      (if rgb16
@@ -772,6 +776,8 @@ may happen."
    "Derive a CSS font-size specifier from an Emacs font :height attribute HEIGHT.
  Does not cope with the case where height is a function to be applied to
  the height of the underlying font."
+  ;; In ttys, the default face has :height == 1.
+  (and (not (display-graphic-p)) (equal 1 height) (setq height 100))
    (list
     (cond
      ;;(t                 (cons "font-size" ": 1em"))
@@ -1786,7 +1792,7 @@ FILE, if set, is the file name."
        ;;(message "inserting footer")
        (insert (funcall hfy-page-footer file)))
      ;; call any post html-generation hooks:
-    (run-hooks 'hfy-post-html-hooks)
+    (run-hooks 'hfy-post-html-hook)
      ;; return the html buffer
      (set-buffer-modified-p nil)
      html-buffer))
@@ -2404,8 +2410,7 @@ You may also want to set `hfy-page-header' and `hfy-page-footer'."
      (load file 'NOERROR nil nil) ))
  
  \f
-;;;### (autoloads (hfy-fallback-colour-values htmlfontify-load-rgb-file)
-;;;;;;  "hfy-cmap" "hfy-cmap.el" "ef24066922f1e27b7580d572f12fabbe")
+;;;### (autoloads nil "hfy-cmap" "hfy-cmap.el" "8a7794fa69a9dfec65d63d17db83b5b0")
  ;;; Generated autoloads from hfy-cmap.el
  
  (autoload 'htmlfontify-load-rgb-file "hfy-cmap" "\