Lines Matching +defs:set +defs:end
29 ;; set the face used for a region of the buffer. Some faces also have
44 ;; M-o i = "set italic", M-o b = "set bold", etc.
47 ;; An alternative set of keybindings that may be easier to type can be set up
65 ;; (define-key global-map [?\H-c] 'facemenu-set-foreground) ; set fg color
66 ;; (define-key global-map [?\H-C] 'facemenu-set-background) ; set bg color
70 ;; `facemenu-new-faces-at-end'. List faces that you want to use in documents
128 (defcustom facemenu-new-faces-at-end t
131 just before \"Other\" at the end."
160 find it useful to set this variable to t temporarily while
173 (define-key map "o" (cons "Other..." 'facemenu-set-face))
183 (define-key map "o" (cons "Other..." 'facemenu-set-foreground))
193 (define-key map "o" (cons "Other..." 'facemenu-set-background))
200 ;;; Condition for enabling menu items that set faces.
210 'facemenu-set-intangible))
212 'facemenu-set-invisible))
214 'facemenu-set-read-only))
223 (define-key map [?c] (cons (purecopy "Center") 'set-justification-center))
224 (define-key map [?b] (cons (purecopy "Full") 'set-justification-full))
225 (define-key map [?r] (cons (purecopy "Right") 'set-justification-right))
226 (define-key map [?l] (cons (purecopy "Left") 'set-justification-left))
227 (define-key map [?u] (cons (purecopy "Unfilled") 'set-justification-none))
286 (define-key map "o" (cons (purecopy "Other...") 'facemenu-set-face))
296 This function is passed the FACE to set and END of text to change, and must
297 return a string which is inserted. It may set `facemenu-end-add-face'."
302 (defcustom facemenu-end-add-face nil
303 "String to insert or function called at end of text to change or nil.
304 This function is passed the FACE to set, and must return a string which is
337 (defun facemenu-set-face (face &optional start end)
362 (region-end))))
364 (facemenu-add-face face start end))
367 (defun facemenu-set-foreground (color &optional start end)
384 (region-end))))
385 (facemenu-set-face-from-menu
387 start end))
390 (defun facemenu-set-background (color &optional start end)
407 (region-end))))
408 (facemenu-set-face-from-menu
410 start end))
413 (defun facemenu-set-face-from-menu (face start end)
432 (region-end))))
442 start end))
445 (defun facemenu-set-invisible (start end)
450 (add-text-properties start end '(invisible t)))
453 (defun facemenu-set-intangible (start end)
458 (add-text-properties start end '(intangible t)))
461 (defun facemenu-set-read-only (start end)
466 (add-text-properties start end '(read-only t)))
469 (defun facemenu-remove-face-props (start end)
474 start end '(face nil mouse-face nil))))
477 (defun facemenu-remove-all (start end)
481 (set-text-properties start end nil)))
484 (defun facemenu-remove-special (start end)
490 start end '(invisible nil intangible nil read-only nil))))
522 (set-buffer standard-output)
591 (defun facemenu-add-face (face &optional start end)
597 If `facemenu-add-face-function' and maybe `facemenu-end-add-face' are non-nil,
598 they are used to set the face information.
607 (funcall facemenu-remove-face-function start end)
608 (if (and start (< start end))
609 (remove-text-properties start end '(face default))
614 (if end (goto-char end))
618 (funcall facemenu-add-face-function face end)))
619 (if facemenu-end-add-face
620 (insert (if (stringp facemenu-end-add-face)
621 facemenu-end-add-face
622 (funcall facemenu-end-add-face face)))))
623 (if (and start (< start end))
624 (let ((part-start start) part-end)
625 (while (not (= part-start end))
626 (setq part-end (next-single-property-change part-start 'face
627 nil end))
629 (put-text-property part-start part-end 'face
642 (setq part-start part-end)))
650 (message "Font-lock mode will override any faces you set in this buffer")))
713 (setq function (intern (concat "facemenu-set-" name)))
718 (facemenu-set-face
723 (region-end)))))
730 function 'facemenu-set-face-from-menu
732 (if (and facemenu-new-faces-at-end
765 (function 'facemenu-set-face-from-menu)
767 (if (and facemenu-new-faces-at-end
778 The faces on ALIST will end up at the end of the returned list, in reverse