Mercurial > hg > xemacs-beta
comparison lisp/x-menubar.el @ 265:8efd647ea9ca r20-5b31
Import from CVS: tag r20-5b31
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:25:37 +0200 |
| parents | 405dd6d1825b |
| children | c5d627a313b1 |
comparison
equal
deleted
inserted
replaced
| 264:682d2a9d41a5 | 265:8efd647ea9ca |
|---|---|
| 734 :selected (and (boundp 'browse-url-browser-function) | 734 :selected (and (boundp 'browse-url-browser-function) |
| 735 (eq browse-url-browser-function 'browse-url-grail)) | 735 (eq browse-url-browser-function 'browse-url-grail)) |
| 736 :active (fboundp 'browse-url-grail)] | 736 :active (fboundp 'browse-url-grail)] |
| 737 ) | 737 ) |
| 738 "-----" | 738 "-----" |
| 739 ["Browse Faces..." edit-faces] | 739 ["Browse Faces..." (customize-face nil)] |
| 740 ("Font" :filter font-menu-family-constructor) | 740 ("Font" :filter font-menu-family-constructor) |
| 741 ("Size" :filter font-menu-size-constructor) | 741 ("Size" :filter font-menu-size-constructor) |
| 742 ("Weight" :filter font-menu-weight-constructor) | 742 ("Weight" :filter font-menu-weight-constructor) |
| 743 "-----" | 743 "-----" |
| 744 ["Save Options" save-options-menu-settings] | 744 ["Save Options" save-options-menu-settings] |
| 786 nil ; the partition: menus after this are flushright | 786 nil ; the partition: menus after this are flushright |
| 787 | 787 |
| 788 ("Help" | 788 ("Help" |
| 789 ["About XEmacs..." about-xemacs] | 789 ["About XEmacs..." about-xemacs] |
| 790 ("Basics" | 790 ("Basics" |
| 791 #-infodock ["Installation" describe-installation] | 791 ["Installation" describe-installation |
| 792 :active (boundp 'Installation-string)] | |
| 792 ;; Tutorials. | 793 ;; Tutorials. |
| 793 ,(if (featurep 'mule) | 794 ,(if (featurep 'mule) |
| 794 ;; Mule tutorials. | 795 ;; Mule tutorials. |
| 795 (let ((lang language-info-alist) | 796 (let ((lang language-info-alist) |
| 796 submenu tut) | 797 submenu tut) |
| 1206 | 1207 |
| 1207 | 1208 |
| 1208 ;;; The Options menu | 1209 ;;; The Options menu |
| 1209 | 1210 |
| 1210 (defvar options-save-faces nil | 1211 (defvar options-save-faces nil |
| 1211 "if t, save-options will save all the face information. | 1212 "*Non-nil value means save-options will save information about faces. |
| 1212 Set to nil to avoid this. This is recommended on XEmacs 19.15 | 1213 A nil value means save-options will not save face information. |
| 1213 and above as we have a much more powerful (read: working) way | 1214 Set this non-nil only if you use M-x edit-faces to change face |
| 1214 of changing and saving faces via cu-edit-faces.el & custom.el.") | 1215 settings. If you use M-x customize-face or the \"Browse Faces...\" |
| 1216 menu entry, you will see a button in the Customize Face buffer that you | |
| 1217 can use to permanently save your face changes. | |
| 1218 | |
| 1219 M-x edit-faces is deprecated. Support for it and this variable will | |
| 1220 be discontinued in a future release.") | |
| 1215 | 1221 |
| 1216 (defconst options-menu-saved-forms | 1222 (defconst options-menu-saved-forms |
| 1217 ;; This is really quite a kludge, but it gets the job done. | 1223 ;; This is really quite a kludge, but it gets the job done. |
| 1218 ;; | 1224 ;; |
| 1219 ;; remember that we have to conditionalize on default features | 1225 ;; remember that we have to conditionalize on default features |