Mercurial > emacs
view lisp/dos-vars.el @ 64220:38b6647b9ed4
(custom-push-theme): Maintain list of the settings
of a given theme in its theme-settings property.
Maintain position of old settings in the theme-value or theme-face property.
(custom-enabled-themes): New variable.
(custom-theme-enabled-p): New function.
(provide-theme): Update custom-enabled-themes.
Disable and reenable the `user' theme.
(require-theme): Doc fix.
(custom-do-theme-reset, custom-remove-theme): Functions deleted.
(custom-theme-value, custom-theme-variable-value): Likewise.
(custom-theme-reset-internal): Likewise.
(custom-theme-load-themes): Fix bugs and use custom-disable-theme.
(custom-enable-theme, custom-disable-theme): New functions.
(custom-variable-theme-value, custom-face-theme-value): Likewise.
(custom-theme-recalc-variable, custom-theme-recalc-face): Likewise.
(custom-theme-reset-variables): Simplify.
(deftheme, custom-declare-theme, custom-make-theme-feature):
Definitions moved.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 11 Jul 2005 00:57:23 +0000 |
parents | 6fb026ad601f |
children | 41bb365f41c4 f9a65d7ebd29 |
line wrap: on
line source
;;; dos-vars.el --- MS-Dos specific user options ;; Copyright (C) 1998 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ;; Boston, MA 02110-1301, USA. ;;; Commentary: ;;; Code: (defgroup dos-fns nil "MS-DOS specific functions." :group 'environment) (defcustom msdos-shells '("command.com" "4dos.com" "ndos.com") "*List of shells that use `/c' instead of `-c' and a backslashed command." :type '(repeat string) :group 'dos-fns) (defcustom dos-codepage-setup-hook nil "*List of functions to be called after the DOS terminal and coding systems are set up. This is the place, e.g., to set specific entries in `standard-display-table' as appropriate for your codepage, if `IT-display-table-setup' doesn't do a perfect job." :group 'dos-fns :type '(hook) :version "20.3.3") ;;; arch-tag: dce8a0d9-ab29-413f-84ed-8b89d6190546 ;;; dos-vars.el ends here