mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

htmlfontify generate autoload to non-versioned file.

Browse Source 
* lisp/Makefile.in: Add htmlfontity-loaddefs to autogenel.
* lisp/hfy-cmap.el: Update file local.
* lisp/htmlfontify.el: Remove autoloads, add require.
* test/lisp/htmlfontify-tests.el: Test autoload functionality.
This commit is contained in:
Phillip Lord 2015-12-16 23:15:44 +00:00
parent a014779ffa
commit 459cf7cb92
4 changed files with 39 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/Makefile.in
View File

@ -91,7 +91,8 @@ AUTOGENEL = loaddefs.el \
org/org-loaddefs.el \
textmodes/reftex-loaddefs.el \
mail/rmail-loaddefs.el \
ibuffer-loaddefs.el
ibuffer-loaddefs.el \
htmlfontify-loaddefs
# Set load-prefer-newer for the benefit of the non-bootstrappers.
BYTE_COMPILE_FLAGS = \

2
lisp/hfy-cmap.el
View File

@ -845,7 +845,7 @@ Loads the variable `hfy-rgb-txt-colour-map', which is used by
(provide 'hfy-cmap)
;; Local Variables:
;; generated-autoload-file: "htmlfontify.el"
;; generated-autoload-file: "htmlfontify-loaddefs.el"
;; End:
;;; hfy-cmap.el ends here

22
lisp/htmlfontify.el
View File

@ -90,6 +90,8 @@
;; (`font-lock-fontify-region')
(require 'cus-edit)
(require 'htmlfontify-loaddefs)
(defconst htmlfontify-version 0.21)
(defconst hfy-meta-tags
@ -2411,26 +2413,6 @@ You may also want to set `hfy-page-header' and `hfy-page-footer'."
(let ((file (hfy-initfile)))
(load file 'NOERROR nil nil) ))
;;;### (autoloads nil "hfy-cmap" "hfy-cmap.el" "1fb78b15b18622256262c7246b2a3520")
;;; Generated autoloads from hfy-cmap.el
(autoload 'htmlfontify-load-rgb-file "hfy-cmap" "\
Load an X11 style rgb.txt FILE.
Search `hfy-rgb-load-path' if FILE is not specified.
Loads the variable `hfy-rgb-txt-colour-map', which is used by
`hfy-fallback-colour-values'.
\(fn &optional FILE)" t nil)
(autoload 'hfy-fallback-colour-values "hfy-cmap" "\
Use a fallback method for obtaining the rgb values for a color.
\(fn COLOUR-STRING)" nil nil)
;;;***
(provide 'htmlfontify)
;;; htmlfontify.el ends here

34
test/lisp/htmlfontify-tests.el Normal file
View File

@ -0,0 +1,34 @@
;;; htmlfontify-tests.el --- Test suite. -*- lexical-binding: t -*-
;; Copyright (C) 2015 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Code:
(require 'ert)
(require 'htmlfontify)
(ert-deftest htmlfontify-autoload ()
"Tests to see whether reftex-auc has been autoloaded"
(should
(fboundp 'htmlfontify-load-rgb-file))
(should
(autoloadp
(symbol-function
'htmlfontify-load-rgb-file))))
(provide 'htmlfontify-tests)
;; htmlfontify-tests.el ends here