Mercurial > hg > xemacs-beta
comparison lisp/auto-autoloads.el @ 464:5aa1854ad537 r21-2-47
Import from CVS: tag r21-2-47
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:45:51 +0200 |
| parents | 0784d089fdc9 |
| children | 7039e6323819 |
comparison
equal
deleted
inserted
replaced
| 463:a158004111cd | 464:5aa1854ad537 |
|---|---|
| 1253 This starts a gnuserv communications subprocess through which | 1253 This starts a gnuserv communications subprocess through which |
| 1254 client \"editors\" (gnuclient and gnudoit) can send editing commands to | 1254 client \"editors\" (gnuclient and gnudoit) can send editing commands to |
| 1255 this Emacs job. See the gnuserv(1) manual page for more details. | 1255 this Emacs job. See the gnuserv(1) manual page for more details. |
| 1256 | 1256 |
| 1257 Prefix arg means just kill any existing server communications subprocess." t nil) | 1257 Prefix arg means just kill any existing server communications subprocess." t nil) |
| 1258 | |
| 1259 ;;;*** | |
| 1260 | |
| 1261 ;;;### (autoloads (gtk-reset-device-font-menus) "gtk-font-menu" "lisp/gtk-font-menu.el") | |
| 1262 | |
| 1263 (autoload 'gtk-reset-device-font-menus "gtk-font-menu" "\ | |
| 1264 Generates the `Font', `Size', and `Weight' submenus for the Options menu. | |
| 1265 This is run the first time that a font-menu is needed for each device. | |
| 1266 If you don't like the lazy invocation of this function, you can add it to | |
| 1267 `create-device-hook' and that will make the font menus respond more quickly | |
| 1268 when they are selected for the first time. If you add fonts to your system, | |
| 1269 or if you change your font path, you can call this to re-initialize the menus." nil nil) | |
| 1270 | |
| 1271 (defun* gtk-font-menu-font-data (face dcache) (defvar gtk-font-regexp) (defvar gtk-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 gtk-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 gtk-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 gtk-font-menu-font-data (make-vector 5 nil))) (when (string-match gtk-font-regexp name) (setq weight (capitalize (match-string 1 name))) (setq size (string-to-int (match-string 6 name)))) (when (string-match gtk-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))) | |
| 1258 | 1272 |
| 1259 ;;;*** | 1273 ;;;*** |
| 1260 | 1274 |
| 1261 ;;;### (autoloads nil "help-macro" "lisp/help-macro.el") | 1275 ;;;### (autoloads nil "help-macro" "lisp/help-macro.el") |
| 1262 | 1276 |