Mercurial > hg > xemacs-beta
annotate lisp/term/scoansi.el @ 5619:75ad4969a16d
Replace the 'flush face property with the opposite 'shrink one.
lisp/ChangeLog addition:
2011-12-26 Didier Verna <didier@xemacs.org>
* cl-macs.el (face-flush-p): Removed.
* cl-macs.el (face-shrink-p): New.
* faces.el (face-flush-p): Removed.
* faces.el (face-shrink-p): New.
* faces.el (set-face-flush-p): Removed.
* faces.el (set-face-shrink-p): New.
* cus-face.el (custom-face-attributes):
* faces.el (set-face-property):
* faces.el (face-equal):
* x-faces.el (x-init-face-from-resources):
* x-faces.el (make-face-x-resource-internal): Replace the 'flush
property with the opposite 'shrink one.
src/ChangeLog addition:
2011-12-26 Didier Verna <didier@xemacs.org>
* lisp.h:
* faces.c (mark_face):
* faces.c (face_equal):
* faces.c (face_getprop):
* faces.c (face_putprop):
* faces.c (face_remprop):
* faces.c (face_plist):
* faces.c (reset_face):
* faces.c (update_face_inheritance_mapper):
* faces.c (Fmake_face):
* faces.c (update_face_cachel_data):
* faces.c (merge_face_cachel_data):
* faces.c (Fcopy_face):
* faces.c (syms_of_faces):
* faces.c (vars_of_faces):
* faces.c (complex_vars_of_faces):
* faces.h (struct Lisp_Face):
* faces.h (struct face_cachel):
* faces.h (WINDOW_FACE_CACHEL_SHRINK_P):
* faces.h (FACE_SHRINK_P):
* fontcolor.c (face_boolean_validate): Replace the 'flush property
with the opposite 'shrink one.
* redisplay.c (create_text_block):
* redisplay.c (create_string_text_block): Ditto. Invert the logic
for storing a new clear_findex in the display lines.
| author | Didier Verna <didier@xemacs.org> |
|---|---|
| date | Mon, 26 Dec 2011 15:04:25 +0100 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 0 | 1 ;; scoansi.el --- set up key names for SCO ansi console |
| 2 | |
| 3 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc. | |
| 4 | |
| 5 ;; Author: Kean Johnston <jkj@paradigm.co.za> | |
| 6 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
398
diff
changeset
|
7 ;; This file is part of XEmacs. |
| 0 | 8 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
398
diff
changeset
|
9 ;; XEmacs is free software: you can redistribute it and/or modify it |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
398
diff
changeset
|
10 ;; under the terms of the GNU General Public License as published by the |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
398
diff
changeset
|
11 ;; Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
398
diff
changeset
|
12 ;; option) any later version. |
| 0 | 13 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
398
diff
changeset
|
14 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
398
diff
changeset
|
15 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
398
diff
changeset
|
16 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
398
diff
changeset
|
17 ;; for more details. |
| 0 | 18 |
| 19 ;; You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
398
diff
changeset
|
20 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 0 | 21 |
| 22 ;; HISTORY | |
| 23 ;; jkj - Jan 18, 1993: Created. | |
| 398 | 24 ;; jkj - Nov 18, 1993: Modified to work with Emacs 19.21 |
| 0 | 25 |
| 26 ;; | |
| 27 ;; First of all, the normal cursor movement keys. Some of these, if not | |
| 28 ;; all, should be set up my termcap/terminfo. We reset them anyway for | |
| 29 ;; the sake of completeness. | |
| 30 ;; | |
| 31 (define-key function-key-map "\e[A" [up]) | |
| 32 (define-key function-key-map "\e[B" [down]) | |
| 33 (define-key function-key-map "\e[C" [right]) | |
| 34 (define-key function-key-map "\e[D" [left]) | |
| 35 (define-key function-key-map "\e[E" [center]) | |
| 36 (define-key function-key-map "\e[F" [end]) | |
| 37 (define-key function-key-map "\e[G" [next]) | |
| 38 (define-key function-key-map "\e[H" [home]) | |
| 39 (define-key function-key-map "\e[I" [prior]) | |
| 40 (define-key function-key-map "\e[L" [insert]) | |
| 41 (define-key function-key-map "\e[-" [kp-subtract]) | |
| 42 (define-key function-key-map "\e[+" [kp-add]) | |
| 43 | |
| 44 ;; | |
| 45 ;; And now all the function keys | |
| 46 ;; | |
| 47 | |
| 48 ;; Normal, unshifted keys | |
| 49 (define-key function-key-map "\e[M" [f1]) | |
| 50 (define-key function-key-map "\e[N" [f2]) | |
| 51 (define-key function-key-map "\e[O" [f3]) | |
| 52 (define-key function-key-map "\e[P" [f4]) | |
| 53 (define-key function-key-map "\e[Q" [f5]) | |
| 54 (define-key function-key-map "\e[R" [f6]) | |
| 55 (define-key function-key-map "\e[S" [f7]) | |
| 56 (define-key function-key-map "\e[T" [f8]) | |
| 57 (define-key function-key-map "\e[U" [f9]) | |
| 58 (define-key function-key-map "\e[V" [f10]) | |
| 59 (define-key function-key-map "\e[W" [f11]) | |
| 60 (define-key function-key-map "\e[X" [f12]) | |
| 61 | |
| 62 ;; Shift-function keys | |
| 63 (define-key function-key-map "\e[Y" [(shift f1)]) | |
| 64 (define-key function-key-map "\e[Z" [(shift f2)]) | |
| 65 (define-key function-key-map "\e[a" [(shift f3)]) | |
| 66 (define-key function-key-map "\e[b" [(shift f4)]) | |
| 67 (define-key function-key-map "\e[c" [(shift f5)]) | |
| 68 (define-key function-key-map "\e[d" [(shift f6)]) | |
| 69 (define-key function-key-map "\e[e" [(shift f7)]) | |
| 70 (define-key function-key-map "\e[f" [(shift f8)]) | |
| 71 (define-key function-key-map "\e[g" [(shift f9)]) | |
| 72 (define-key function-key-map "\e[h" [(shift f10)]) | |
| 73 (define-key function-key-map "\e[i" [(shift f11)]) | |
| 74 (define-key function-key-map "\e[j" [(shift f12)]) | |
| 75 | |
| 76 ;; Control function keys | |
| 77 (define-key function-key-map "\e[k" [(control f1)]) | |
| 78 (define-key function-key-map "\e[l" [(control f2)]) | |
| 79 (define-key function-key-map "\e[m" [(control f3)]) | |
| 80 (define-key function-key-map "\e[n" [(control f4)]) | |
| 81 (define-key function-key-map "\e[o" [(control f5)]) | |
| 82 (define-key function-key-map "\e[p" [(control f6)]) | |
| 83 (define-key function-key-map "\e[q" [(control f7)]) | |
| 84 (define-key function-key-map "\e[r" [(control f8)]) | |
| 85 (define-key function-key-map "\e[s" [(control f9)]) | |
| 86 (define-key function-key-map "\e[t" [(control f10)]) | |
| 87 (define-key function-key-map "\e[u" [(control f11)]) | |
| 88 (define-key function-key-map "\e[v" [(control f12)]) | |
| 89 | |
| 90 ;; Shift-control function keys | |
| 91 (define-key function-key-map "\e[w" [(control shift f1)]) | |
| 92 (define-key function-key-map "\e[x" [(control shift f2)]) | |
| 93 (define-key function-key-map "\e[y" [(control shift f3)]) | |
| 94 (define-key function-key-map "\e[z" [(control shift f4)]) | |
| 95 (define-key function-key-map "\e[@" [(control shift f5)]) | |
| 96 (define-key function-key-map "\e[[" [(control shift f6)]) | |
| 97 (define-key function-key-map "\e[\\" [(control shift f7)]) | |
| 98 (define-key function-key-map "\e[]" [(control shift f8)]) | |
| 99 (define-key function-key-map "\e[^" [(control shift f9)]) | |
| 100 (define-key function-key-map "\e[_" [(control shift f10)]) | |
| 101 (define-key function-key-map "\e[`" [(control shift f11)]) | |
| 102 (define-key function-key-map "\e[{" [(control shift f12)]) | |
| 103 | |
| 104 ;;; | |
| 105 ;;; Now come the extended key names. Please refer to README.sco for | |
| 106 ;;; more information regarding these keys and how to set them up. | |
| 107 ;;; | |
| 108 (define-key function-key-map "\e]A" [(shift home)]) | |
| 109 (define-key function-key-map "\e]B" [(shift up)]) | |
| 110 (define-key function-key-map "\e]C" [(shift prior)]) | |
| 111 (define-key function-key-map "\e]D" [(shift left)]) | |
| 112 (define-key function-key-map "\e]E" [(shift right)]) | |
| 113 (define-key function-key-map "\e]F" [(shift end)]) | |
| 114 (define-key function-key-map "\e]G" [(shift down)]) | |
| 115 (define-key function-key-map "\e]H" [(shift next)]) | |
| 116 (define-key function-key-map "\e]I" [(shift insert)]) | |
| 117 (define-key function-key-map "\e]J" [(shift delete)]) | |
| 118 | |
| 119 (define-key function-key-map "\e]K" [(control home)]) | |
| 120 (define-key function-key-map "\e]L" [(control up)]) | |
| 121 (define-key function-key-map "\e]M" [(control prior)]) | |
| 122 (define-key function-key-map "\e]N" [(control left)]) | |
| 123 (define-key function-key-map "\e]O" [(control right)]) | |
| 124 (define-key function-key-map "\e]P" [(control end)]) | |
| 125 (define-key function-key-map "\e]Q" [(control down)]) | |
| 126 (define-key function-key-map "\e]R" [(control next)]) | |
| 127 (define-key function-key-map "\e]S" [(control insert)]) | |
| 128 (define-key function-key-map "\e]T" [(control delete)]) | |
| 129 | |
| 130 (define-key function-key-map "\e]U" [(meta home)]) | |
| 131 (define-key function-key-map "\e]V" [(meta up)]) | |
| 132 (define-key function-key-map "\e]W" [(meta prior)]) | |
| 133 (define-key function-key-map "\e]X" [(meta left)]) | |
| 134 (define-key function-key-map "\e]Y" [(meta right)]) | |
| 135 (define-key function-key-map "\e]Z" [(meta end)]) | |
| 136 (define-key function-key-map "\e]a" [(meta down)]) | |
| 137 (define-key function-key-map "\e]b" [(meta next)]) | |
| 138 (define-key function-key-map "\e]c" [(meta insert)]) | |
| 139 (define-key function-key-map "\e]d" [(meta delete)]) | |
| 140 | |
| 141 (define-key function-key-map "\e]e" [(control center)]) | |
| 142 (define-key function-key-map "\e]f" [(control kp-subtract)]) | |
| 143 (define-key function-key-map "\e]g" [(control kp-add)]) | |
| 144 | |
| 145 (define-key function-key-map "\e]h" [(meta center)]) | |
| 146 (define-key function-key-map "\e]i" [(meta kp-subtract)]) | |
| 147 (define-key function-key-map "\e]j" [(meta kp-add)]) |