Mercurial > hg > xemacs-beta
comparison lisp/auto-autoloads.el @ 523:cd662ad69f40
[xemacs-hg @ 2001-05-09 13:43:49 by ben]
regex.c: fix error compiling regexps with back-references in them.
xemacs.mak: do not warn about gtk when we're not trying to compile with it.
font.el, gtk-widget-accessors.el, widgets-gtk.el, x-font-menu.el: fix byte-compilation warnings.
etags.c: temporary fix to avoid crashes with new regex code.
PROBLEMS: i swear i already committed this.
| author | ben |
|---|---|
| date | Wed, 09 May 2001 13:43:58 +0000 |
| parents | 39ccc7dd8077 |
| children |
comparison
equal
deleted
inserted
replaced
| 522:19559cacc941 | 523:cd662ad69f40 |
|---|---|
| 1981 (autoload 'widget-delete "wid-edit" "\ | 1981 (autoload 'widget-delete "wid-edit" "\ |
| 1982 Delete WIDGET." nil nil) | 1982 Delete WIDGET." nil nil) |
| 1983 | 1983 |
| 1984 ;;;*** | 1984 ;;;*** |
| 1985 | 1985 |
| 1986 ;;;### (autoloads (x-reset-device-font-menus) "x-font-menu" "lisp/x-font-menu.el") | 1986 ;;;### (autoloads (x-font-menu-font-data x-reset-device-font-menus) "x-font-menu" "lisp/x-font-menu.el") |
| 1987 | 1987 |
| 1988 (autoload 'x-reset-device-font-menus "x-font-menu" "\ | 1988 (autoload 'x-reset-device-font-menus "x-font-menu" "\ |
| 1989 Generates the `Font', `Size', and `Weight' submenus for the Options menu. | 1989 Generates the `Font', `Size', and `Weight' submenus for the Options menu. |
| 1990 This is run the first time that a font-menu is needed for each device. | 1990 This is run the first time that a font-menu is needed for each device. |
| 1991 If you don't like the lazy invocation of this function, you can add it to | 1991 If you don't like the lazy invocation of this function, you can add it to |
| 1992 `create-device-hook' and that will make the font menus respond more quickly | 1992 `create-device-hook' and that will make the font menus respond more quickly |
| 1993 when they are selected for the first time. If you add fonts to your system, | 1993 when they are selected for the first time. If you add fonts to your system, |
| 1994 or if you change your font path, you can call this to re-initialize the menus." nil nil) | 1994 or if you change your font path, you can call this to re-initialize the menus." nil nil) |
| 1995 | 1995 |
| 1996 (defun* x-font-menu-font-data (face dcache) (defvar x-font-regexp) (defvar x-font-regexp-foundry-and-family) (let* ((case-fold-search t) (domain (if font-menu-this-frame-only-p (selected-frame) (selected-device))) (name (font-instance-name (face-font-instance face domain))) (truename (font-instance-truename (face-font-instance face domain (if (featurep 'mule) 'ascii)))) family size weight entry slant) (when (string-match x-font-regexp-foundry-and-family name) (setq family (capitalize (match-string 1 name))) (setq entry (vassoc family (aref dcache 0)))) (when (and (null entry) (string-match x-font-regexp-foundry-and-family truename)) (setq family (capitalize (match-string 1 truename))) (setq entry (vassoc family (aref dcache 0)))) (when (null entry) (return-from x-font-menu-font-data (make-vector 5 nil))) (when (string-match x-font-regexp name) (setq weight (capitalize (match-string 1 name))) (setq size (string-to-int (match-string 6 name)))) (when (string-match x-font-regexp truename) (when (not (member weight (aref entry 1))) (setq weight (capitalize (match-string 1 truename)))) (when (not (member size (aref entry 2))) (setq size (string-to-int (match-string 6 truename)))) (setq slant (capitalize (match-string 2 truename)))) (vector entry family size weight slant))) | 1996 (autoload 'x-font-menu-font-data "x-font-menu" nil nil nil) |
| 1997 | 1997 |
| 1998 ;;;*** | 1998 ;;;*** |
| 1999 | 1999 |
| 2000 ;;;### (autoloads (x-win-init-sun) "x-win-sun" "lisp/x-win-sun.el") | 2000 ;;;### (autoloads (x-win-init-sun) "x-win-sun" "lisp/x-win-sun.el") |
| 2001 | 2001 |