Mercurial > hg > xemacs-beta

comparison lisp/x11/x-font-menu.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 56c54cf7c5b6
children c0c698873ce1
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details. 19 ;; General Public License for more details.
20 20
21 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free 22 ;; along with XEmacs; see the file COPYING. If not, write to the
23 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 23 ;; Free Software Foundation, 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
24 25
25 ;;; Commentary: 26 ;;; Commentary:
26 ;;; 27 ;;;
27 ;;; Creates three menus, "Font", "Size", and "Weight", and puts them on the 28 ;;; Creates three menus, "Font", "Size", and "Weight", and puts them on the
28 ;;; "Options" menu. The contents of these menus are the superset of those 29 ;;; "Options" menu. The contents of these menus are the superset of those
115 ;;;###autoload 116 ;;;###autoload
116 (defvar font-menu-ignore-scaled-fonts t 117 (defvar font-menu-ignore-scaled-fonts t
117 "*If non-nil, then the font menu will try to show only bitmap fonts.") 118 "*If non-nil, then the font menu will try to show only bitmap fonts.")
118 119
119 ;;;###autoload 120 ;;;###autoload
120 (defvar font-menu-this-frame-only-p nil 121 (defvar font-menu-this-frame-only-p t
121 "*If non-nil, then changing the default font from the font menu will only 122 "*If non-nil, then changing the default font from the font menu will only
122 affect one frame instead of all frames.") 123 affect one frame instead of all frames.")
123 124
124 ;; only call XListFonts (and parse) once per device. 125 ;; only call XListFonts (and parse) once per device.
125 ;; ( (device . [parsed-list-fonts family-menu size-menu weight-menu]) ...) 126 ;; ( (device . [parsed-list-fonts family-menu size-menu weight-menu]) ...)