| /macosx-10.9.5/emacs-92/emacs/lisp/ |
| H A D | faces.el | 43 "Influencing face font selection."
47 (defcustom face-font-selection-order
49 "*A list specifying how face font selection chooses fonts.
53 those face attributes first that appear first in the list. For
66 (defcustom face-font-family-alternatives
82 (defcustom face-font-registry-alternatives
114 (defun face-list ()
115 "Return a list of all defined face names."
116 (mapcar #'car face-new-frame-defaults))
121 (defun make-face (fac
[all...] |
| H A D | facemenu.el | 1 ;;; facemenu.el --- create a face menu for interactively adding fonts to text
29 ;; set the face used for a region of the buffer. Some faces also have
36 ;; Selecting a face from the menu or typing the keyboard equivalent will
37 ;; change the region to use that face. If you use transient-mark-mode and the
38 ;; region is not active, the face will be remembered and used for the next
96 ;;;###autoload (autoload 'facemenu-keymap "facemenu" "Keymap for face-changing commands." t 'keymap)
103 "Create a face menu for interactively adding fonts to text."
114 Each element is itself a list: the car is the name of the face,
125 :type '(repeat (cons face string))
136 `(modeline region secondary-selection highlight scratch-face
[all...] |
| H A D | hi-lock.el | 31 ;; using a yellow background face. New occurrences of `clearly' will
33 ;; will remove the highlighting. Any existing face can be used for
88 ; Hi-lock: ( ("make-variable-buffer-\\(local\\)" (0 font-lock-keyword-face)(1 'italic append)))))
153 "Default face for hi-lock mode."
211 (defvar hi-lock-face-history
216 ;(dolist (f hi-lock-face-history) (unless (facep f) (error "%s not a face" f)))
338 (when (and (equal (buffer-name) "*scratch*")
388 (defalias 'highlight-lines-matching-regexp 'hi-lock-line-face-buffer)
390 (defun hi-lock-line-face
[all...] |
| H A D | disp-table.el | 190 (defun make-glyph-code (char &optional face)
191 "Return a glyph code representing char CHAR with face FACE."
193 ;; face id greater that 4091 are silently ignored.
194 (if (and face (<= (face-id face) #xfff))
195 (logior char (lsh (face-id face) 19))
204 (defun glyph-face (glyph)
205 "Return the face o
[all...] |
| H A D | rfn-eshadow.el | 58 :doc "Display shadowed part of filename using a different face"
59 (const :format "" face)
60 (face :value file-name-shadow))
98 '(face file-name-shadow field shadow)
161 (defsubst rfn-eshadow-sifn-equal (goal pos)
162 (equal goal (condition-case nil
183 (not (rfn-eshadow-sifn-equal goal (1+ mid))))
185 (rfn-eshadow-sifn-equal goal mid)))
190 (rfn-eshadow-sifn-equal goal (1+ end)))
196 (if (rfn-eshadow-sifn-equal goa
[all...] |
| H A D | pcvs-info.el | 70 "PCL-CVS face used to highlight directory changes."
73 (put 'cvs-header-face 'face-alias 'cvs-header)
81 "PCL-CVS face used to highlight file names."
84 (put 'cvs-filename-face 'face-alias 'cvs-filename)
92 "PCL-CVS face used to highlight unknown file status."
95 (put 'cvs-unknown-face 'face-alias 'cvs-unknown)
103 "PCL-CVS face use
[all...] |
| H A D | ps-print.el | 54 ;; ps-print uses the same face attributes defined through font-lock or hilit to
58 ;; ps-print allows a remap of face to another one that it is better to print,
59 ;; for example, the face font-lock-comment-face (if you are using font-lock)
740 ;; printed. If it's lesser than or equal to zero, it's used the
859 ;; If `ps-n-up-printing' is equal to 1, `ps-print-begin-page-hook' is never
990 ;; (w3-table-hack-x-face . "LineDrawNormal"))
999 ;; Note that on above example the `w3-table-hack-x-face' entry refers to a face
1000 ;; symbol, so when printing this face i
[all...] |
| H A D | s-region.el | 47 (overlay-put s-region-overlay 'face 'region)
77 (if (if mark-active (not (equal last-command 's-region-move)) t)
|
| H A D | cus-edit.el | 142 (require 'cus-face)
528 (list (if (equal val "")
623 ("-face\\'" face)
772 '(custom-variable custom-face)))
788 '(custom-variable custom-face)))
823 '(custom-variable custom-face)))
839 '(custom-variable custom-face)))
857 '(custom-variable custom-face)))
1038 (if (string-equal "" grou
3632 (define-widget 'face 'symbol function
[all...] |
| H A D | startup.el | 348 (not (equal thisdir (car tail)))
350 (equal (downcase thisdir) (downcase (car tail))))))
369 (if (equal (user-uid) 0)
393 (or (equal (file-attributes
515 (not (equal (car args) "--")))
563 ((equal argi "-color")
686 (equal init-file-user (user-real-login-name))
703 (unless (equal argi "--")
728 ((equal argi "-no-site-file")
730 ((equal arg
[all...] |
| H A D | tutorial.el | 37 (defface tutorial-warning-face
38 '((t :inherit font-lock-warning-face))
158 (if (string-equal "the menus" where)
178 ;; Skip the front part of the key sequences if they are equal:
181 (equal (car x) (car y)))
359 'face 'tutorial-warning-face key-txt))
458 (equal key [?\C-v])
461 (equal key [?\C-z])
467 (equal ke
[all...] |
| /macosx-10.9.5/emacs-92/emacs/lisp/mh-e/ |
| H A D | mh-speed.el | 45 (defvar mh-speed-folder-map (make-hash-table :test #'equal))
46 (defvar mh-speed-flists-cache (make-hash-table :test #'equal))
249 (equal (substring newcf 0 1) "+")
250 (not (equal newcf mh-speed-last-selected-folder))))
270 (defun mh-speed-highlight (folder face)
277 (setq face (mh-speed-bold-face face))
278 (setq face (mh-speed-normal-face fac
[all...] |
| H A D | mh-mime.el | 392 (equal nil mh-mime-save-parts-default-directory)
393 (equal t mh-mime-save-parts-default-directory))
397 (equal t mh-mime-save-parts-default-directory))
407 (if (and (equal directory "") mh-mime-save-parts-directory)
411 (if (equal nil mh-mime-save-parts-default-directory)
501 (face-property 'default prop) (current-buffer)))
576 (when (or (not ct) (equal (car ct) "text/plain"))
591 ((equal (car handle) "multipart/alternative")
594 (or (equal (car handle) "multipart/signed")
595 (equal (ca
[all...] |
| H A D | mh-xface.el | 39 (cond ((and mh-xemacs-flag (locate-library "x-face") (not (featurep 'xface)))
40 (load "x-face" t t)
41 #'mh-face-display-function)
43 #'mh-face-display-function)
66 (defun mh-face-display-function ()
76 (face (message-fetch-field "face" t))
77 (x-face (message-fetch-field "x-face" t))
80 (cond (face (set
[all...] |
| /macosx-10.9.5/emacs-92/emacs/lisp/erc/ |
| H A D | erc-track.el | 157 \(e.g. `erc-pal-face' is used if a pal sent a message to that channel.)"
162 '(erc-error-face erc-current-nick-face erc-keyword-face erc-pal-face
163 erc-nick-msg-face erc-direct-msg-face erc-button erc-dangerous-host-face
164 erc-default-face erc-action-face er
[all...] |
| H A D | erc-button.el | 67 ;; Make XEmacs use `erc-button-face'.
70 (lambda () (set (make-local-variable 'widget-button-face) nil))))
75 "ERC button face."
78 (defcustom erc-button-face 'erc-button
83 :type 'face
86 (defcustom erc-button-nickname-face 'erc-nick-default-face
88 :type 'face
91 (defcustom erc-button-mouse-face 'highlight
94 Buttons will be displayed in this face whe
[all...] |
| H A D | erc-capab.el | 60 ;; You can customize the prefix and the face used to display it,
85 (defface erc-capab-identify-unidentified '((t)) ; same as `erc-default-face'
193 'face 'erc-capab-identify-unidentified))))))
199 (equal 0 (get-text-property 0 'erc-identified
|
| /macosx-10.9.5/emacs-92/emacs/lisp/gnus/ |
| H A D | gnus-ems.el | 84 (defvar gnus-mouse-face-prop 'mouse-face
98 (defvar gnus-mouse-face)
149 gnus-mouse-face-prop gnus-mouse-face)
193 (make-face 'gnus-splash)
196 (set-face-foreground 'gnus-splash "Brown")
197 (set-face-stipple 'gnus-splash pixmap)
204 (set-text-properties beg (point) '(face gnus-splash))
220 (let ((face (plis
[all...] |
| H A D | gnus-cite.el | 143 (put 'gnus-cite-attribution-face 'face-alias 'gnus-cite-attribution)
145 (defcustom gnus-cite-attribution-face 'gnus-cite-attribution
147 It is merged with the face for the cited text belonging to the attribution."
150 :type 'face)
160 "Citation face."
163 (put 'gnus-cite-face-1 'face-alias 'gnus-cite-1)
173 "Citation face."
176 (put 'gnus-cite-face
[all...] |
| /macosx-10.9.5/emacs-92/emacs/lisp/obsolete/ |
| H A D | hilit19.el | 73 ;; a face with a green foreground, and a black background, using a
197 ;; added default face mapping for 'formula' which is needed for new latex
207 ;; font for that face is maintained by emacs.
263 ;; hilit-face-translation-table into a mapcar and defining a separate table
270 ;; (hilit-lookup-face-create) incorporated patch which improves its behavior
271 ;; with more than one frame... Still can't have bold on the same face in two
286 ;; added hilit-predefined-face-list...
350 (defvar hilit-face-check t
352 losing bold and italic faces... t causes hilit-lookup-face-create to dig
386 A highlighting pattern is a list of the form (start end face), wher
[all...] |
| H A D | fast-lock.el | 31 ;; It makes visiting a file in Font Lock mode faster by restoring its face text
86 ;; - Lucid: Use `list-faces' for `face-list'
90 ;; - Lucid: Added Lucid-specific `fast-lock-get-face-properties'
97 ;; - Lucid: Added Lucid-specific `fast-lock-set-face-properties'
101 ;; - Lucid: Made `fast-lock-set-face-properties' put `text-prop' on extents
109 ;; - Reverted to old `fast-lock-get-face-properties' (from Rick Sladkey)
111 ;; - Reverted to 3.04 version of `fast-lock-get-face-properties'
133 ;; - Made `fast-lock-get-face-properties' functions use it
134 ;; - XEmacs: Made `fast-lock-set-face-properties' do extents the Font Lock way
157 ;; - XEmacs: Made `fast-lock-save-faces' default to `font-lock-face
[all...] |
| /macosx-10.9.5/emacs-92/emacs/lisp/textmodes/ |
| H A D | reftex-sel.el | 109 ;;; (or (equal typekey " ")
110 ;;; (equal typekey (nth 1 entry))))
132 (or (equal typekey " ")
133 (equal typekey (nth 1 entry))))
169 (mouse-face
171 reftex-mouse-selected-face
173 (label-face (reftex-verified-face reftex-label-face
174 'font-lock-constant-face
[all...] |
| /macosx-10.9.5/emacs-92/emacs/lisp/term/ |
| H A D | w32-win.el | 238 (not (equal (car x-invocation-args) "--")))
1181 (defun internal-face-interactive (what &optional bool)
1182 (let* ((fn (intern (concat "face-" what)))
1183 (prompt (concat "Set " what " of face "))
1184 (face (read-face-name prompt))
1186 (or (funcall fn face (selected-frame))
1194 (completing-read (concat prompt " " (symbol-name face) " to: ")
1200 (y-or-n-p (concat "Should face " (symbol-name face)
[all...] |
| /macosx-10.9.5/emacs-92/emacs/lisp/mail/ |
| H A D | emacsbug.el | 108 (put-text-property pos (point) 'face 'highlight)))
112 (put-text-property pos (point) 'face 'highlight))
148 (not (equal system-configuration-options "")))
238 (equal (buffer-substring (point-min) (point))
|
| /macosx-10.9.5/emacs-92/emacs/lisp/emacs-lisp/ |
| H A D | find-func.el | 97 (defcustom find-face-regexp
99 "The regexp used by `find-face' to search for a face definition.
101 should insert the face name.
111 (defface . find-face-regexp))
308 (defface . "face")))))
311 (if (equal symb 0)
320 (list (if (equal val "")
435 variable, `defface' for a face. This function does not switch to the
451 ;; For symmetry, this should be called find-face; bu
[all...] |