*** empty log message ***

[gnu-emacs] / lisp / dos-vars.el

diff --git a/lisp/dos-vars.el b/lisp/dos-vars.el
index 5b30b4a120e6160c44f227a2093c1823ea822839..ee008d2094ae2bb84244e92f71cfce54e18a7b94 100644 (file)
--- a/lisp/dos-vars.el
+++ b/lisp/dos-vars.el
@@ -1,4 +1,4 @@
-;;; dos-vars.el --- MS-Dos specific user options.
+;;; dos-vars.el --- MS-Dos specific user options
 
 ;; Copyright (C) 1998 Free Software Foundation, Inc.
 
@@ -22,6 +22,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (defgroup dos-fns nil
   "MS-DOS specific functions."
   :group 'environment)
@@ -31,4 +35,13 @@
   :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")
+
 ;;; dos-vars.el ends here