Mercurial > hg > xemacs-beta
diff lisp/disp-table.el @ 5113:b2dcf6a6d8ab
some changes to doc strings/comments in disp-table.el
-------------------- ChangeLog entries follow: --------------------
lisp/ChangeLog addition:
2010-03-07 Ben Wing <ben@xemacs.org>
* disp-table.el:
* disp-table.el (standard-display-g1):
* disp-table.el (standard-display-graphic):
Fix up docs; add comments about authorship.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Sun, 07 Mar 2010 06:43:19 -0600 |
parents | 1f0aa40cafe0 |
children | e84ee15ca495 |
line wrap: on
line diff
--- a/lisp/disp-table.el Sat Dec 26 00:20:16 2009 -0600 +++ b/lisp/disp-table.el Sun Mar 07 06:43:19 2010 -0600 @@ -2,8 +2,8 @@ ;; Copyright (C) 1987, 1994, 1997, 2007 Free Software Foundation, Inc. ;; Copyright (C) 1995 Sun Microsystems. +;; Copyright (C) 2005 Ben Wing. -;; Author: Howard Gayle ;; Maintainer: XEmacs Development Team ;; Keywords: i18n, internal @@ -29,7 +29,10 @@ ;;; Commentary: ;; Rewritten for XEmacs July 1995, Ben Wing. - +;; November 1998?, display tables generalized to char/range tables, Hrvoje +;; Niksic. +;; July 2007, rewrite this file to handle generalized display tables, +;; Aidan Kehoe. ;;; Code: @@ -116,6 +119,9 @@ ;; Let me say one more time how much dynamic scoping sucks. +;; #### Need more thinking about basic primitives for modifying a specifier. +;; cf `modify-specifier-instances'. + ;;;###autoload (defun frob-display-table (fdt-function fdt-locale &optional tag-set) (or fdt-locale (setq fdt-locale 'global)) @@ -184,8 +190,8 @@ ;;;###autoload (defun standard-display-g1 (c sc &optional locale) "Display character C as character SC in the g1 character set. -This function assumes that your terminal uses the SO/SI characters; -it is meaningless for an X frame." +This only has an effect on TTY devices and assumes that your terminal uses +the SO/SI characters." (frob-display-table (lambda (x) (put-char-table c (concat "\016" (char-to-string sc) "\017") x)) @@ -194,8 +200,7 @@ ;;;###autoload (defun standard-display-graphic (c gc &optional locale) "Display character C as character GC in graphics character set. -This function assumes VT100-compatible escapes; it is meaningless for an -X frame." +This only has an effect on TTY devices and assumes VT100-compatible escapes." (frob-display-table (lambda (x) (put-char-table c (concat "\e(0" (char-to-string gc) "\e(B") x))