Lines Matching +defs:set +defs:text +defs:properties
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.
444 Normally, as an exception, digits and minus-sign are set to make prefix args,
537 (defun global-set-key (key command)
553 (defun local-set-key (key command)
575 (global-set-key key nil))
582 (local-set-key key nil))
663 ;;; global-map, esc-map, and ctl-x-map have their values set up in
814 "Return the window area recorded in POSITION, or nil for the text area.
831 (defun posn-set-point (position)
835 (error "Position not in text area of window"))
928 (define-obsolete-function-alias 'set-window-dot 'set-window-point "22.1")
930 (define-obsolete-function-alias 'show-buffer 'set-window-buffer "22.1")
994 (defalias 'move-marker 'set-marker)
1003 (defalias 'store-match-data 'set-match-data)
1040 (or (boundp hook) (set hook nil))
1042 (set hook (list t)))
1060 HOOK is void, it is first set to nil. If HOOK's value is a single
1062 (or (boundp hook) (set hook nil))
1063 (or (default-boundp hook) (set-default hook nil))
1064 (if local (unless (local-variable-if-set-p hook)
1065 (set (make-local-variable hook) (list t)))
1081 (if local (set hook hook-value) (set-default hook hook-value))))
1091 (or (boundp hook) (set hook nil))
1092 (or (default-boundp hook) (set-default hook nil))
1112 (set-default hook hook-value)
1115 (set hook hook-value))))))
1146 (set list-var
1161 float), set the element's list order to the given value. If
1177 (set list-var (cons element (symbol-value list-var))))
1178 (set list-var (sort (symbol-value list-var)
1191 property on symbol HISTORY-VAR, if set, or the value of the `history-length'
1216 (set history-var history)))
1583 "use `process-query-on-exit-flag' or `set-process-query-on-exit-flag'."
1590 (set-process-query-on-exit-flag process nil)
1603 (set-process-plist process
1658 ;; Turn a meta-character into a character with the 0200 bit set.
1687 then it returns nil if the user types C-g, but quit-flag remains set.
1707 ;; Copy it so that add-text-properties won't modify
1714 (add-text-properties 0 (length prompt)
1715 minibuffer-prompt-properties prompt)
1926 (if all (save-excursion (set-buffer (other-buffer))))
1927 (set-buffer-modified-p (buffer-modified-p)))
1989 (set-buffer-modified-p modified))))
2001 (props (overlay-properties o)))
2045 was displayed in is selected. This hook is normally set up with a
2052 This hook is normally set up with a function to put the buffer in Help
2073 "Determine default tag to search for, based on text at point.
2087 (buffer-substring-no-properties
2107 :volume VOL - set volume to VOL. VOL must an integer in the
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
2230 FUNCTION may set `yank-undo-function' to override the UNDO value."
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))
2273 (if (eq yank-undo-function t) ;; not set by FUNCTION
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))))
2371 (set-buffer ,buffer)
2405 (set-frame-selected-window (car elt) (cadr elt))))
2465 "Execute BODY, return the text it sent to `standard-output', as a string."
2533 (progn (set-case-table ,table)
2536 (set-case-table ,old-case-table))))))
2636 '(set-match-data save-match-data-internal 'evaporate))))
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.
2755 If SEPARATORS is non-nil, it should be a regular expression matching text
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,
2888 "Evaluate BODY with syntax table of current buffer set to TABLE.
2899 (set-syntax-table ,table)
2902 (set-buffer ,old-buffer)
2903 (set-syntax-table ,old-table))))))
2910 (set-char-table-parent table (or oldtable (standard-syntax-table)))
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)
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:
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
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.
3038 mail message buffer. This function should set up the basics of the
3057 The properties used on SYMBOL are `composefunc', `sendfunc',
3115 call this function. You should omit it or set it to nil in most