Mercurial > hg > xemacs-beta
comparison lisp/glyphs.el @ 3061:fd1acd2f457a
[xemacs-hg @ 2005-11-13 07:39:26 by ben]
fix 'foo -> `foo', `foo.' -> `foo'.
derived.el, frame.el, toolbar.el, glyphs.el, hyper-apropos.el, mouse.el, files.el, specifier.el: Fix uses of `foo'; change 'foo -> `foo', and put punctuation outside
of quotes.
Add comments in specifier.el about needing better and new convenience
functions.
| author | ben |
|---|---|
| date | Sun, 13 Nov 2005 07:39:29 +0000 |
| parents | f8db302d6298 |
| children | 9b4442ac18c7 |
comparison
equal
deleted
inserted
replaced
| 3060:7679bfa253c2 | 3061:fd1acd2f457a |
|---|---|
| 582 that type will be copied; if nil or `all', then all | 582 that type will be copied; if nil or `all', then all |
| 583 specifications will be copied). | 583 specifications will be copied). |
| 584 | 584 |
| 585 HOW-TO-ADD should be either nil or one of the symbols `prepend', | 585 HOW-TO-ADD should be either nil or one of the symbols `prepend', |
| 586 `append', `remove-tag-set-prepend', `remove-tag-set-append', `remove-locale', | 586 `append', `remove-tag-set-prepend', `remove-tag-set-append', `remove-locale', |
| 587 `remove-locale-type', or `remove-all.' See `copy-specifier' and | 587 `remove-locale-type', or `remove-all'. See `copy-specifier' and |
| 588 `add-spec-to-specifier' for a description of what each of | 588 `add-spec-to-specifier' for a description of what each of |
| 589 these means. Most of the time, you do not need to worry about | 589 these means. Most of the time, you do not need to worry about |
| 590 this argument; the default behavior usually is fine. | 590 this argument; the default behavior usually is fine. |
| 591 | 591 |
| 592 In general, it is OK to pass an instance object (e.g. as returned | 592 In general, it is OK to pass an instance object (e.g. as returned |
| 693 | 693 |
| 694 If SPEC is an alist, LOCALE must be omitted. If SPEC is a | 694 If SPEC is an alist, LOCALE must be omitted. If SPEC is a |
| 695 specifier object, LOCALE can be a locale, a locale type, `all', | 695 specifier object, LOCALE can be a locale, a locale type, `all', |
| 696 or nil; see `copy-specifier' for its semantics. Otherwise LOCALE | 696 or nil; see `copy-specifier' for its semantics. Otherwise LOCALE |
| 697 specifies the locale under which the specified instantiator(s) | 697 specifies the locale under which the specified instantiator(s) |
| 698 will be added, and defaults to `global.' | 698 will be added, and defaults to `global'. |
| 699 | 699 |
| 700 See `set-glyph-property' for more information." | 700 See `set-glyph-property' for more information." |
| 701 ; (interactive (glyph-interactive "image")) | 701 ; (interactive (glyph-interactive "image")) |
| 702 (set-glyph-property glyph 'image spec locale tag-set how-to-add)) | 702 (set-glyph-property glyph 'image spec locale tag-set how-to-add)) |
| 703 | 703 |
| 731 | 731 |
| 732 If SPEC is an alist, LOCALE must be omitted. If SPEC is a | 732 If SPEC is an alist, LOCALE must be omitted. If SPEC is a |
| 733 specifier object, LOCALE can be a locale, a locale type, `all', | 733 specifier object, LOCALE can be a locale, a locale type, `all', |
| 734 or nil; see `copy-specifier' for its semantics. Otherwise LOCALE | 734 or nil; see `copy-specifier' for its semantics. Otherwise LOCALE |
| 735 specifies the locale under which the specified instantiator(s) | 735 specifies the locale under which the specified instantiator(s) |
| 736 will be added, and defaults to `global.' | 736 will be added, and defaults to `global'. |
| 737 | 737 |
| 738 See `set-glyph-property' for more information." | 738 See `set-glyph-property' for more information." |
| 739 ; (interactive (glyph-interactive "contrib-p")) | 739 ; (interactive (glyph-interactive "contrib-p")) |
| 740 (set-glyph-property glyph 'contrib-p spec locale tag-set how-to-add)) | 740 (set-glyph-property glyph 'contrib-p spec locale tag-set how-to-add)) |
| 741 | 741 |
| 770 | 770 |
| 771 If SPEC is an alist, LOCALE must be omitted. If SPEC is a | 771 If SPEC is an alist, LOCALE must be omitted. If SPEC is a |
| 772 specifier object, LOCALE can be a locale, a locale type, `all', | 772 specifier object, LOCALE can be a locale, a locale type, `all', |
| 773 or nil; see `copy-specifier' for its semantics. Otherwise LOCALE | 773 or nil; see `copy-specifier' for its semantics. Otherwise LOCALE |
| 774 specifies the locale under which the specified instantiator(s) | 774 specifies the locale under which the specified instantiator(s) |
| 775 will be added, and defaults to `global.' | 775 will be added, and defaults to `global'. |
| 776 | 776 |
| 777 See `set-glyph-property' for more information." | 777 See `set-glyph-property' for more information." |
| 778 ; (interactive (glyph-interactive "baseline")) | 778 ; (interactive (glyph-interactive "baseline")) |
| 779 (set-glyph-property glyph 'baseline spec locale tag-set how-to-add)) | 779 (set-glyph-property glyph 'baseline spec locale tag-set how-to-add)) |
| 780 | 780 |
| 1131 (if (null value) | 1131 (if (null value) |
| 1132 (remove-specifier harg 'global) | 1132 (remove-specifier harg 'global) |
| 1133 (set-glyph-image (symbol-value harg) value)))) | 1133 (set-glyph-image (symbol-value harg) value)))) |
| 1134 | 1134 |
| 1135 ;; It might or might not be garbage, but it's rude. Make these | 1135 ;; It might or might not be garbage, but it's rude. Make these |
| 1136 ;; `compatible' instead of `obsolete.' -slb | 1136 ;; `compatible' instead of `obsolete'. -slb |
| 1137 (defun define-obsolete-pointer-glyph (old new) | 1137 (defun define-obsolete-pointer-glyph (old new) |
| 1138 (define-compatible-variable-alias old new) | 1138 (define-compatible-variable-alias old new) |
| 1139 (dontusethis-set-symbol-value-handler | 1139 (dontusethis-set-symbol-value-handler |
| 1140 old 'set-value 'dontusethis-old-pointer-shape-handler new)) | 1140 old 'set-value 'dontusethis-old-pointer-shape-handler new)) |
| 1141 | 1141 |