Mercurial > hg > xemacs-beta
comparison lisp/auto-autoloads.el @ 414:da8ed4261e83 r21-2-15
Import from CVS: tag r21-2-15
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:21:38 +0200 |
| parents | 697ef44129c6 |
| children |
comparison
equal
deleted
inserted
replaced
| 413:901169e5ca31 | 414:da8ed4261e83 |
|---|---|
| 1055 | 1055 |
| 1056 (add-minor-mode 'font-lock-mode " Font") | 1056 (add-minor-mode 'font-lock-mode " Font") |
| 1057 | 1057 |
| 1058 ;;;*** | 1058 ;;;*** |
| 1059 | 1059 |
| 1060 ;;;### (autoloads (mswindows-font-menu-weight-constructor font-menu-size-constructor font-menu-family-constructor reset-device-font-menus) "font-menu" "lisp/font-menu.el") | |
| 1061 | |
| 1062 (defcustom font-menu-ignore-scaled-fonts nil "*If non-nil, then the font menu will try to show only bitmap fonts." :type 'boolean :group 'x) | |
| 1063 | |
| 1064 (defcustom font-menu-this-frame-only-p nil "*If non-nil, then changing the default font from the font menu will only\naffect one frame instead of all frames." :type 'boolean :group 'x) | |
| 1065 | |
| 1066 (fset 'install-font-menus 'reset-device-font-menus) | |
| 1067 | |
| 1068 (autoload 'reset-device-font-menus "font-menu" "\ | |
| 1069 Generates the `Font', `Size', and `Weight' submenus for the Options menu. | |
| 1070 This is run the first time that a font-menu is needed for each device. | |
| 1071 If you don't like the lazy invocation of this function, you can add it to | |
| 1072 `create-device-hook' and that will make the font menus respond more quickly | |
| 1073 when they are selected for the first time. If you add fonts to your system, | |
| 1074 or if you change your font path, you can call this to re-initialize the menus." nil nil) | |
| 1075 | |
| 1076 (autoload 'font-menu-family-constructor "font-menu" nil nil nil) | |
| 1077 | |
| 1078 (autoload 'font-menu-size-constructor "font-menu" nil nil nil) | |
| 1079 | |
| 1080 (autoload 'mswindows-font-menu-weight-constructor "font-menu" nil nil nil) | |
| 1081 | |
| 1082 ;;;*** | |
| 1083 | |
| 1060 ;;;### (autoloads (x-font-build-cache font-default-size-for-device font-default-encoding-for-device font-default-registry-for-device font-default-family-for-device font-default-object-for-device font-default-font-for-device font-create-object) "font" "lisp/font.el") | 1084 ;;;### (autoloads (x-font-build-cache font-default-size-for-device font-default-encoding-for-device font-default-registry-for-device font-default-family-for-device font-default-object-for-device font-default-font-for-device font-create-object) "font" "lisp/font.el") |
| 1061 | 1085 |
| 1062 (autoload 'font-create-object "font" nil nil nil) | 1086 (autoload 'font-create-object "font" nil nil nil) |
| 1063 | 1087 |
| 1064 (autoload 'font-default-font-for-device "font" nil nil nil) | 1088 (autoload 'font-default-font-for-device "font" nil nil nil) |
| 1223 ;;;### (autoloads nil "loaddefs" "lisp/loaddefs.el") | 1247 ;;;### (autoloads nil "loaddefs" "lisp/loaddefs.el") |
| 1224 | 1248 |
| 1225 ;;;*** | 1249 ;;;*** |
| 1226 | 1250 |
| 1227 ;;;### (autoloads nil "loadhist" "lisp/loadhist.el") | 1251 ;;;### (autoloads nil "loadhist" "lisp/loadhist.el") |
| 1252 | |
| 1253 ;;;*** | |
| 1254 | |
| 1255 ;;;### (autoloads (mswindows-reset-device-font-menus) "msw-font-menu" "lisp/msw-font-menu.el") | |
| 1256 | |
| 1257 (autoload 'mswindows-reset-device-font-menus "msw-font-menu" "\ | |
| 1258 Generates the `Font', `Size', and `Weight' submenus for the Options menu. | |
| 1259 This is run the first time that a font-menu is needed for each device. | |
| 1260 If you don't like the lazy invocation of this function, you can add it to | |
| 1261 `create-device-hook' and that will make the font menus respond more quickly | |
| 1262 when they are selected for the first time. If you add fonts to your system, | |
| 1263 or if you change your font path, you can call this to re-initialize the menus." nil nil) | |
| 1264 | |
| 1265 (defun* mswindows-font-menu-font-data (face dcache) (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 mswindows-font-regexp name) (setq family (capitalize (match-string 1 name))) (setq entry (vassoc family (aref dcache 0)))) (when (and (null entry) (string-match mswindows-font-regexp truename)) (setq family (capitalize (match-string 1 truename))) (setq entry (vassoc family (aref dcache 0)))) (when (null entry) (return-from font-menu-font-data (make-vector 5 nil))) (when (string-match mswindows-font-regexp name) (setq weight (capitalize (match-string 2 name))) (setq size (string-to-int (match-string 4 name)))) (when (string-match mswindows-font-regexp truename) (when (not (member weight (aref entry 1))) (setq weight (capitalize (match-string 2 truename)))) (when (not (member size (aref entry 2))) (setq size (string-to-int (match-string 4 truename)))) (setq slant (capitalize (match-string 5 truename)))) (vector entry family size weight slant))) | |
| 1228 | 1266 |
| 1229 ;;;*** | 1267 ;;;*** |
| 1230 | 1268 |
| 1231 ;;;### (autoloads (mwheel-install) "mwheel" "lisp/mwheel.el") | 1269 ;;;### (autoloads (mwheel-install) "mwheel" "lisp/mwheel.el") |
| 1232 | 1270 |
| 1718 (autoload 'widget-delete "wid-edit" "\ | 1756 (autoload 'widget-delete "wid-edit" "\ |
| 1719 Delete WIDGET." nil nil) | 1757 Delete WIDGET." nil nil) |
| 1720 | 1758 |
| 1721 ;;;*** | 1759 ;;;*** |
| 1722 | 1760 |
| 1723 ;;;### (autoloads (font-menu-weight-constructor font-menu-size-constructor font-menu-family-constructor reset-device-font-menus) "x-font-menu" "lisp/x-font-menu.el") | 1761 ;;;### (autoloads (x-reset-device-font-menus) "x-font-menu" "lisp/x-font-menu.el") |
| 1724 | 1762 |
| 1725 (defcustom font-menu-ignore-scaled-fonts t "*If non-nil, then the font menu will try to show only bitmap fonts." :type 'boolean :group 'font-menu) | 1763 (autoload 'x-reset-device-font-menus "x-font-menu" "\ |
| 1726 | |
| 1727 (defcustom font-menu-this-frame-only-p nil "*If non-nil, then changing the default font from the font menu will only\naffect one frame instead of all frames." :type 'boolean :group 'font-menu) | |
| 1728 | |
| 1729 (fset 'install-font-menus 'reset-device-font-menus) | |
| 1730 | |
| 1731 (autoload 'reset-device-font-menus "x-font-menu" "\ | |
| 1732 Generates the `Font', `Size', and `Weight' submenus for the Options menu. | 1764 Generates the `Font', `Size', and `Weight' submenus for the Options menu. |
| 1733 This is run the first time that a font-menu is needed for each device. | 1765 This is run the first time that a font-menu is needed for each device. |
| 1734 If you don't like the lazy invocation of this function, you can add it to | 1766 If you don't like the lazy invocation of this function, you can add it to |
| 1735 `create-device-hook' and that will make the font menus respond more quickly | 1767 `create-device-hook' and that will make the font menus respond more quickly |
| 1736 when they are selected for the first time. If you add fonts to your system, | 1768 when they are selected for the first time. If you add fonts to your system, |
| 1737 or if you change your font path, you can call this to re-initialize the menus." nil nil) | 1769 or if you change your font path, you can call this to re-initialize the menus." nil nil) |
| 1738 | 1770 |
| 1739 (autoload 'font-menu-family-constructor "x-font-menu" nil nil nil) | 1771 (defun* x-font-menu-font-data (face dcache) (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 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))) |
| 1740 | |
| 1741 (autoload 'font-menu-size-constructor "x-font-menu" nil nil nil) | |
| 1742 | |
| 1743 (autoload 'font-menu-weight-constructor "x-font-menu" nil nil nil) | |
| 1744 | 1772 |
| 1745 ;;;*** | 1773 ;;;*** |
| 1746 | 1774 |
| 1747 ;;;### (autoloads (x-win-init-sun) "x-win-sun" "lisp/x-win-sun.el") | 1775 ;;;### (autoloads (x-win-init-sun) "x-win-sun" "lisp/x-win-sun.el") |
| 1748 | 1776 |