Mercurial > hg > xemacs-beta

comparison lisp/autoload.el @ 4303:cee827542370

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-12-04 20:18:33 by aidan] Implement coding system autoloads; use them for the variable-length ISO 2022 Latin coding systems.
author aidan
date Tue, 04 Dec 2007 20:18:43 +0000
parents 1dabc28c10d0
children 6ad202d453cb
comparison
equal deleted inserted replaced
4302:2f5ccbd44293 4303:cee827542370
278 (defvar ,varname ,init ,doc) 278 (defvar ,varname ,init ,doc)
279 (custom-add-to-group ,(plist-get rest :group) 279 (custom-add-to-group ,(plist-get rest :group)
280 ',varname 'custom-variable) 280 ',varname 'custom-variable)
281 (custom-add-load ',varname 281 (custom-add-load ',varname
282 ,(plist-get rest :require)))))) 282 ,(plist-get rest :require))))))
283 283 ;; Coding systems. #### Would be nice to handle the docstring here too.
284 ((memq car '(make-coding-system make-8-bit-coding-system))
285 `(autoload-coding-system ,(nth 1 form) '(load ,file)))
284 ;; nil here indicates that this is not a special autoload form. 286 ;; nil here indicates that this is not a special autoload form.
285 (t nil)))) 287 (t nil))))
286 288
287 (defun make-c-autoload (module) 289 (defun make-c-autoload (module)
288 "Make an autoload list for the DEFUN at point in MODULE. 290 "Make an autoload list for the DEFUN at point in MODULE.