← Back to branch summary

~ubuntu-branches/ubuntu/vivid/muse-el/vivid

« back to all changes in this revision

Viewing changes to contrib/htmlize-hack.el

  • Committer: Bazaar Package Importer
  • Author(s): Bhavani Shankar
  • Date: 2010-10-16 09:53:48 UTC
  • mfrom: (1.1.6 upstream) (4.1.4 sid)
  • Revision ID: james.westby@ubuntu.com-20101016095348-fu6k0inu5uownt09
Tags: 3.20-2ubuntu1
* Merge from debian unstable. Remaining changes:
  - Keep the GFDL manual:
    + Modified debian/rules to build the manual
    + Added copyright info about the manual in debian/copyright

Show diffs side-by-side

added added

removed removed

Lines of Context:
contrib/htmlize-hack.el
 
1
;; This file provides a fix for htmlize.el and Emacs 23.
 
2
;; To use it, add the path to this directory to your load path and
 
3
;; add (require 'htmlize-hack) to your Emacs init file.
 
4
 
 
5
(require 'htmlize)
 
6
 
 
7
(when (equal htmlize-version "1.34")
 
8
  (defun htmlize-face-size (face)
 
9
    ;; The size (height) of FACE, taking inheritance into account.
 
10
    ;; Only works in Emacs 21 and later.
 
11
    (let ((size-list
 
12
           (loop
 
13
            for f = face then (face-attribute f :inherit)
 
14
            until (or (null f) (eq f 'unspecified))
 
15
            for h = (face-attribute f :height)
 
16
            collect (if (eq h 'unspecified) nil h))))
 
17
      (reduce 'htmlize-merge-size (cons nil size-list)))))
 
18
 
 
19
(provide 'htmlize-hack)