Lines Matching +defs:text +defs:properties +defs:at
13 ;; the Free Software Foundation; either version 2, or (at your option)
169 Treated as a declaration when used at the right place in a
355 "Like `assoc', but ignores differences in case and text representation.
362 "Like `assoc', but ignores differences in text representation.
368 "Like `member', but ignores differences in case and text representation.
459 just after the binding for the event AFTER, instead of at the beginning
463 If AFTER is t or omitted, the new binding goes at the end of the keymap.
487 ;; If we reach the end of this keymap, insert at the end.
526 "Translate character FROM to TO at a low level.
607 ;; original key, with PREFIX added at the front.
693 ;; The call to `read' is to ensure that the value is computed at load time
814 "Return the window area recorded in POSITION, or nil for the text area.
835 (error "Position not in text area of window"))
1006 (defalias 'point-at-eol 'line-end-position)
1007 (defalias 'point-at-bol 'line-beginning-position)
1049 FUNCTION is added (if necessary) at the beginning of the hook list
1051 FUNCTION is added at the end.
1121 If ELEMENT is added, it is added at the beginning of the list,
1123 ELEMENT is added at the end.
1158 without a numeric list order are placed at the end of the list.
1230 "Normal hook run at the very end of major mode functions.")
1444 (defmacro eval-at-startup (&rest body)
1489 "Arrange that, if FILE is ever loaded, FORM will be run at that time.
1569 Process output goes at end of that buffer, unless you specify
1707 ;; Copy it so that add-text-properties won't modify
1714 (add-text-properties 0 (length prompt)
1715 minibuffer-prompt-properties prompt)
1899 ;; Temporarily truncate the undo log at ELT.
1930 "Momentarily display STRING in the buffer at POS.
1941 ;; Don't modify the undo list at all.
1952 ;; defeat file locking... don't try this at home, kids!
1960 ;; scroll to start it at the top of the screen.
2001 (props (overlay-properties o)))
2050 "Normal hook run by `with-output-to-temp-buffer' at the start.
2064 ;; `cl-assertion-failed' at runtime so always define it.
2073 "Determine default tag to search for, based on text at point.
2076 (while (looking-at "\\sw\\|\\s_")
2087 (buffer-substring-no-properties
2090 (while (looking-at "\\s'")
2155 (defun field-at-pos (pos)
2156 "Return the field at position POS, taking stickiness etc into account"
2164 ;;;; Support for yanking and text properties.
2166 (defvar yank-excluded-properties)
2168 (defun remove-yank-excluded-properties (start end)
2169 "Remove `yank-excluded-properties' between START and END positions.
2170 Replaces `category' properties with their defined properties."
2172 ;; Replace any `category' property with the properties it stands for.
2173 (unless (memq yank-excluded-properties '(t nil))
2177 (let ((cat (get-text-property (point) 'category))
2183 (remove-list-of-text-properties (point) run-end '(category))
2186 (setq original (text-properties-at (point)))
2187 (set-text-properties (point) run-end2 (symbol-plist cat))
2188 (add-text-properties (point) run-end2 original)
2191 (if (eq yank-excluded-properties t)
2192 (set-text-properties start end nil)
2193 (remove-list-of-text-properties start end yank-excluded-properties))))
2208 "Insert STRING at point, stripping some text properties.
2210 Strip text properties from the inserted text according to
2211 `yank-excluded-properties'. Otherwise just like (insert STRING).
2224 yank-excluded-properties is not performed; instead FUNCTION is
2225 responsible for removing those properties. This may be necessary
2232 (get-text-property 0 'yank-handler string)))
2244 ;; Prevent read-only properties from interfering with the
2245 ;; following text property changes.
2248 ;; What should we do with `font-lock-face' properties?
2251 (remove-list-of-text-properties opoint end '(font-lock-face))
2256 (let ((face (get-text-property (point) 'font-lock-face))
2261 (remove-text-properties (point) run-end '(font-lock-face nil))
2262 (put-text-property (point) run-end 'face face))
2266 (remove-yank-excluded-properties opoint (point)))
2268 ;; If last inserted char has properties, mark them as rear-nonsticky.
2270 (text-properties-at (1- end)))
2271 (put-text-property (1- end) end 'rear-nonsticky t))
2278 (defun insert-buffer-substring-no-properties (buffer &optional start end)
2279 "Insert before point a substring of BUFFER, without text properties.
2286 (set-text-properties opoint (point) nil))))
2289 "Insert before point a part of BUFFER, stripping some text properties.
2293 Strip text properties from the inserted text according to
2294 `yank-excluded-properties'."
2295 ;; Since the buffer text should not normally have yank-handler properties,
2299 (remove-yank-excluded-properties opoint (point))))
2309 Process output goes at end of that buffer, unless you specify
2384 window of some frame is no longer live at the end of BODY, that
2386 no longer live, then whatever window is selected at the end of
2465 "Execute BODY, return the text it sent to `standard-output', as a string."
2568 ;; We used to have `&rest args' where `args' were evaluated late (at the
2639 "Return string of text matched by last search.
2642 Zero means the entire text matched by the whole regexp or whole string.
2649 (defun match-string-no-properties (num &optional string)
2650 "Return string of text matched by last search, without text properties.
2653 Zero means the entire text matched by the whole regexp or whole string.
2657 (substring-no-properties string (match-beginning num)
2659 (buffer-substring-no-properties (match-beginning num)
2663 "Return non-nil if text before point matches regular expression REGEXP.
2664 Like `looking-at' except matches before point, and is slower.
2684 (looking-at (concat "\\(?:" regexp "\\)\\'"))))
2688 (looking-at (concat "\\(?:" regexp "\\)\\'")))))
2723 ;; "\\[?]")) ; special handling for bare [ at end of re
2755 If SEPARATORS is non-nil, it should be a regular expression matching text
2816 is non-nil, start replacements at that index in STRING.
2819 function. If it is a function, it is called with the actual text of each
2820 match, and its value is used as the replacement text. When REP is called,
2917 (let ((st (if parse-sexp-lookup-properties
2930 (defun text-clone-maintain (ol1 after beg end &optional len)
2932 This is used on the `modification-hooks' property of text clones."
2934 (let ((margin (if (overlay-get ol1 'text-clone-spreadp) 1 0)))
2939 (when (overlay-get ol1 'text-clone-syntax)
2940 ;; Check content of the clone's text.
2946 (overlay-get ol1 'text-clone-syntax) cend t))
2948 (overlay-put ol1 'text-clones nil)
2950 ;; Shrink the clone at its end.
2955 ;; Shrink the clone at its beginning.
2965 (dolist (ol2 (overlay-get ol1 'text-clones))
2975 ;;(overlay-put ol2 'modification-hooks '(text-clone-maintain))
2979 (defun text-clone-create (start end &optional spreadp syntax)
2980 "Create a text clone of START...END at point.
2981 Text clones are chunks of text that are automatically kept identical:
2984 The buffer's content at point is assumed to be already identical to
2986 If SYNTAX is provided it's a regexp that describes the possible text of
2988 its text matches the regexp.
2989 If SPREADP is non-nil it indicates that text inserted before/after the
2993 ;; (with a one-char margin at each end) with `t nil'.
3009 (overlay-put ol1 'modification-hooks '(text-clone-maintain))
3010 (when spreadp (overlay-put ol1 'text-clone-spreadp t))
3011 (when syntax (overlay-put ol1 'text-clone-syntax syntax))
3014 (overlay-put ol1 'text-clones dups)
3016 (overlay-put ol2 'modification-hooks '(text-clone-maintain))
3017 (when spreadp (overlay-put ol2 'text-clone-spreadp t))
3018 (when syntax (overlay-put ol2 'text-clone-syntax syntax))
3021 (overlay-put ol2 'text-clones dups)))
3035 properties on its property list, to encode the rest of the arguments.
3057 The properties used on SYMBOL are `composefunc', `sendfunc',
3105 MESSAGE is shown in the echo area. When at least 1% of operation
3122 at all. If OS is not capable of measuring fractions of seconds,