mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(standard-display-ascii): Error if using a windowing system.

Browse Source 
(standard-display-g1, standard-display-graphic): Ditto.
(standard-display-underline): If window system, use underline font.
This commit is contained in:
Karl Heuer 1994-03-19 03:48:55 +00:00
parent 03fd83c58a
commit de7d5cb6a7
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/disp-table.el
View File

@ -89,14 +89,22 @@
;;;###autoload
(defun standard-display-ascii (c s)
"Display character C using string S."
"Display character C using string S.
S is usually a terminal-dependent escape sequence.
This function is meaningless for an X frame."
(if window-system
(error "Cannot use string glyphs in a windowing system"))
(or standard-display-table
(setq standard-display-table (make-vector 261 nil)))
(aset standard-display-table c (apply 'vector (append s nil))))
;;;###autoload
(defun standard-display-g1 (c sc)
"Display character C as character SC in the g1 character set."
"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."
(if window-system
(error "Cannot use string glyphs in a windowing system"))
(or standard-display-table
(setq standard-display-table (make-vector 261 nil)))
(aset standard-display-table c
@ -104,7 +112,11 @@
;;;###autoload
(defun standard-display-graphic (c gc)
"Display character C as character GC in graphics character set."
"Display character C as character GC in graphics character set.
This function assumes VT100-compatible escapes; it is meaningless for an
X frame."
(if window-system
(error "Cannot use string glyphs in a windowing system"))
(or standard-display-table
(setq standard-display-table (make-vector 261 nil)))
(aset standard-display-table c
@ -113,10 +125,14 @@
;;;###autoload
(defun standard-display-underline (c uc)
"Display character C as character UC plus underlining."
(if window-system (require 'faces))
(or standard-display-table
(setq standard-display-table (make-vector 261 nil)))
(aset standard-display-table c
(vector (create-glyph (concat "\e[4m" (char-to-string uc) "\e[m")))))
(vector
(if window-system
(logior uc (lsh (face-id (internal-find-face 'underline)) 8))
(create-glyph (concat "\e[4m" (char-to-string uc) "\e[m"))))))
;; Allocate a glyph code to display by sending STRING to the terminal.
;;;###autoload