Lines Matching +defs:text +defs:properties +defs:at
13 ;; the Free Software Foundation; either version 2, or (at your option)
282 and start at the first error.
312 "Visit the source code corresponding to the `next-error' message at point."
333 "Restart at the first error.
377 (unless (equal next-error-follow-last-line (line-number-at-pos))
378 (setq next-error-follow-last-line (line-number-at-pos))
404 text-property `hard'.
410 ;; Inserting a newline at the end of a line produces better redisplay in
411 ;; try_window_id than inserting at the beginning of a line, and the textual
412 ;; result is the same. So, if we're at beginning of line, pretend to be at
421 (not (buffer-has-markers-at (1- (point))))
422 (not (buffer-has-markers-at (point)))
423 ;; Make sure no text properties want to know
436 ;; properties as the char before it (if any).
440 (looking-at page-delimiter)))
448 ;; there is no need to since we're at BOL.
452 ;; If we get an error in self-insert-command, put point at right place.
460 (set-hard-newline-properties
468 (and (looking-at "[ \t]$")
472 ;; when we added the newline at the beginning of a line
478 (defun set-hard-newline-properties (from to)
479 (let ((sticky (get-text-property from 'rear-nonsticky)))
480 (put-text-property from to 'hard 't)
483 (put-text-property from (point) 'rear-nonsticky
526 (looking-at (regexp-quote prefix))))))
533 "Join this line to previous and fix up whitespace at join.
562 (setq thisblank (looking-at "[ \t]*$"))
566 (not (looking-at "[ \t]*\n[ \t]*$"))
569 (not (looking-at "[ \t]*$")))))))
590 ;; Delete the line, leaving point at eob.
591 (if (looking-at "^[ \t]*\n\\'")
607 (if (looking-at ".*\f")
615 In some text modes, where TAB inserts a tab, this command indents to the
627 In some text modes, where TAB inserts a tab, this indents to the
680 "Move forward ARG lines and position at first nonblank character."
686 "Move backward ARG lines and position at first nonblank character."
705 (if (or (looking-at "^\\|\\s)")
707 (looking-at "$\\|\\s(\\|\\s'")))
744 "Move point to the beginning of the buffer; leave mark at previous position.
745 With \\[universal-argument] prefix, do not set mark at previous position.
769 "Move point to the end of the buffer; leave mark at previous position.
770 With \\[universal-argument] prefix, do not set mark at previous position.
796 ;; then scroll specially to put it near, but not at, the bottom.
801 "Put point at beginning and mark at end of buffer.
815 "Goto line ARG, counting from line 1 at beginning of buffer.
821 If there's a number in the buffer at point, it is the default for ARG."
825 ;; Look for a default, a number in the buffer at point.
829 (if (looking-at "[0-9]")
830 (buffer-substring-no-properties
874 (n (line-number-at-pos)))
881 (+ n (line-number-at-pos start) -1) n))))))
887 and the greater of them is not at the start of a line."
906 (defun line-number-at-pos (&optional pos)
907 "Return (narrowed) buffer line number at position POS.
909 Counting starts at (point-min), so the value refers
961 ;; text property. In that case, set under-display to the
963 (setq display-prop (get-text-property pos 'display))
972 (concat (buffer-substring-no-properties pos to)
996 (buffer-substring-no-properties (point) (1+ (point))))
1002 (buffer-substring-no-properties (point) (1+ (point))))
1007 ;; Initialize read-expression-map. It is defined at C level.
1175 (defvar minibuffer-text-before-history nil
1183 (setq minibuffer-text-before-history nil))
1223 (null minibuffer-text-before-history))
1224 (setq minibuffer-text-before-history
1225 (minibuffer-contents-no-properties)))
1305 (null minibuffer-text-before-history))
1306 (setq minibuffer-text-before-history
1307 (minibuffer-contents-no-properties)))
1327 (setq elt (or minibuffer-text-before-history ""))
1329 (setq minibuffer-text-before-history nil))
1351 (let ((point-at-start (point)))
1356 ;; next-matching-history-element always puts us at (point-min).
1357 ;; Move to the position we were at before changing the buffer contents.
1358 ;; This is still sensical, because the text before point has not changed.
1359 (goto-char point-at-start)))
1373 ;; Return the width of everything before the field at the end of
1536 that apply to text between BEG and END are used; other undo elements
1599 (let ((text-pos (abs (cdr undo-elt)))
1600 (point-at-end (< (cdr undo-elt) 0 )))
1601 (if (>= text-pos position)
1602 (setcdr undo-elt (* (if point-at-end -1 1)
1603 (- text-pos offset))))))
1771 With prefix argument, insert the COMMAND's output at point.
1807 in the current buffer\", a message about the error goes at the end
1868 ;; because we inserted text.
2009 appears at the end of the output.
2022 the output in place of text from START to END, putting point and mark
2357 If DELETE is non-nil, the text between BEG and END is deleted
2361 text properties, while the string passed to the filters still
2362 includes text properties from the buffer text.
2366 where the text came from.
2369 `buffer-substring-no-properties', or `delete-and-extract-region'
2383 (set-text-properties 0 (length string) nil string))
2386 (buffer-substring-no-properties beg end))
2397 pasting text between the windows of different programs.
2398 This variable holds a function that Emacs calls whenever text
2404 the text which should be made available.
2409 "Function to call to get text cut from other programs.
2412 pasting text between the windows of different programs.
2414 text that other programs have provided for pasting.
2417 returns nil, then no other program has provided such text, and the top
2427 is equal (according to `string=') to the last text Emacs provided.")
2435 "List of killed text sequences.
2462 handler, if non-nil, is stored as a `yank-handler' text property on STRING).
2470 (put-text-property 0 (length string)
2490 yank-handler text property to be set on the combined kill ring
2499 (equal yank-handler (get-text-property 0 'yank-handler cur)))
2515 ;; text to the kill ring, so Emacs doesn't try to own the
2516 ;; selection, with identical text.
2534 "*Non-nil means don't signal an error for killing read-only text."
2538 (put 'text-read-only 'error-conditions
2539 '(text-read-only buffer-read-only error))
2540 (put 'text-read-only 'error-message "Text is read-only")
2543 "Kill (\"cut\") text between point and mark.
2544 This deletes the text from the buffer and saves it in the kill ring.
2548 If you want to append the killed region to the last killed text,
2552 the text, but put the text in the kill ring anyway. This means that
2553 you can use the killing commands to copy text from a read-only buffer.
2555 This is the primitive for programs to kill text (as opposed to deleting it).
2556 Supply two arguments, character positions indicating the stretch of text
2560 the text killed this time appends to the text killed last time
2564 specifies the yank-handler text property to be set on the killed
2565 text. See `insert-for-yank'."
2581 ((buffer-read-only text-read-only)
2586 ;; the region's text in the kill ring, anyway.
2592 (progn (message "Read only text copied to kill ring") nil)
2595 ;; If the buffer isn't read-only, the text is.
2596 (signal 'text-read-only (list (current-buffer)))))))
2599 ;; to get two copies of the text when the user accidentally types M-w and
2604 If `interprogram-cut-function' is non-nil, also save the text for a window
2617 If `interprogram-cut-function' is non-nil, also save the text for a window
2620 If you want to append the killed line to the last killed text,
2649 (let* ((killed-text (current-kill 0))
2650 (message-len (min (length killed-text) 40)))
2653 (message "Saved text until \"%s\""
2654 (substring killed-text (- message-len)))
2655 (message "Saved text from \"%s\""
2656 (substring killed-text 0 message-len))))))))
2673 (defcustom yank-excluded-properties
2676 "*Text properties to discard when yanking.
2677 The value should be a list of text properties to discard or t,
2678 which means to discard all text properties."
2685 "If non-nil, function used by `yank-pop' to delete last stretch of yanked text.
2691 "Replace just-yanked stretch of killed text with a different stretch.
2694 previously-killed text. `yank-pop' deletes that text and inserts in its
2695 place a different stretch of killed text.
2704 When this command inserts killed text into the buffer, it honors
2705 `yank-excluded-properties' and `yank-handler' as described in the
2726 ;; loop would deactivate the mark because we inserted text.
2732 "Reinsert (\"paste\") the last stretch of killed text.
2733 More precisely, reinsert the stretch of killed text most recently
2734 killed OR yanked. Put point at end, and set mark at beginning.
2735 With just \\[universal-argument] as argument, same but put point at beginning (and mark at end).
2737 text.
2739 When this command inserts killed text into the buffer, it honors
2740 `yank-excluded-properties' and `yank-handler' as described in the
2757 ;; loop would deactivate the mark because we inserted text.
2841 "*If non-nil, `kill-line' with no arg at beg of line kills the whole line."
2849 With zero argument, kills the text before point on the current line.
2854 To kill a whole line, when point is not at the beginning, type \
2858 including its terminating newline, when used at the beginning of a line
2862 If you want to append the killed line to the last killed text,
2867 you can use this command to copy text from a read-only buffer.
2874 ;; moves across the text that is copied to the kill ring.
2912 ;; could have been a kill command, in which case the text
2914 ;; ring entry and the text after point appended. Also, we
2915 ;; need to use save-excursion to avoid copying the same text
2953 ;; If invisible text follows, and it is a number of complete lines,
2964 (if (get-text-property (point) 'invisible)
2987 ;; If invisible text follows, and it is a number of complete lines,
2998 (if (get-text-property (1- (point)) 'invisible)
3023 (if (get-text-property (point) 'invisible)
3031 Puts mark after the inserted text.
3052 "Append to specified buffer the text of the region.
3075 "Prepend to specified buffer the text of the region.
3090 "Copy to specified buffer the text of the region.
3091 It is inserted into that buffer, replacing existing text there.
3110 It is also run at the end of a command, if the mark is active and
3203 "Set mark at where point is.
3229 Setting the mark also alters the region, which is the text
3233 With no prefix argument, set the mark at point, and push the
3285 "Set mark at LOCATION (point, by default) and push old mark on mark ring.
3362 default part of the buffer's text. Examples of such commands include
3366 \"mark.*active\" at the prompt, to see the documentation of
3412 column, or at the end of the line if it is not long enough.
3449 column, or at the end of the line if it is not long enough.
3471 "*Non-nil means vertical motion starting at end of line keeps to ends of lines.
3487 at the start of current run of vertical motion commands.
3535 (let ((ppos (posn-at-point)))
3538 (min (- (window-text-height) scroll-margin 1) (1- vpos))))
3541 ;; or clear vscroll and move forward at end of tall image.
3548 (= py (min (- (window-text-height) scroll-margin 1)
3607 ;; It doesn't get confused by intangible text.
3628 ;; from field boundaries ocurring exactly at point.
3630 (let ((inhibit-field-text-motion t))
3690 ;; at least go to end of line.
3694 ;; at least go to beginning of line.
3725 ;; line-move-finish, point is at the start of a new *screen*
3726 ;; line but the same text line; then line-move-to-column would
3737 ;; goto-char moves point past intangible text.
3743 ;; text when the initial and final points are the same.
3792 and `current-column' to be able to ignore invisible text."
3812 ;; and move back over invisible text.
3823 which are part of the text that the image rests on.)
3849 ;; and now we're not really at eol,
3857 which are part of the text that the image rests on.)
3943 Leave mark at previous position.
3962 Leave mark at previous position.
3981 If no argument and at end of line, the previous two chars are exchanged."
3987 "Interchange words around point, leaving point at end of them.
4010 (looking-at "\\sw\\|\\s_")
4012 (save-excursion (forward-char -1) (looking-at "\\sw\\|\\s_"))))
4084 ;; FIXME: We first delete the two pieces of text, so markers that
4085 ;; used to point to after the text end up pointing to before it :-(
4138 The return value includes no text properties.
4173 (buffer-substring-no-properties start end)))))
4177 "*String for filling to insert at front of new line, or nil for none."
4211 (looking-at auto-fill-inhibit-regexp))))
4237 (looking-at (regexp-quote fill-prefix))
4247 ;; There is no use breaking at end of line.
4249 ;; It is futile to split at the end of the prefix
4264 ;; If point is at the fill-point, do not `save-excursion'.
4298 In Auto Fill mode, inserting a space at a column beyond `current-fill-column'
4299 automatically breaks the line at a previous space.
4314 "Automatically break line at a previous space, in insertion of text."
4325 (custom-add-option 'text-mode-hook 'turn-on-auto-fill)
4392 In overwrite mode, printing characters typed in replace existing text
4409 existing text. Newlines are not treated specially, so typing at the
4413 \\[quoted-insert] replaces the text at the cursor, just as ordinary
4476 If nil, search stops at the beginning of the accessible portion of the buffer."
4581 (substring-no-properties open-paren-line-string))))))))
4589 ;; that happens in the QUIT macro at the C code level.
4753 to insert the raw text of the message being replied to.
4755 FUNCTION to ARGS, to insert the raw text of the original message.
4757 original text has been inserted in this way.)
4803 (let* ((default-var (variable-at-point))
4887 "Number of chars at beginning of minibuffer not involved in completion.
4890 If this is nil, it means to compare text to determine which part
4891 of the tail end of the buffer's text is involved in completion.")
4917 (when (get-text-property (point) 'mouse-face)
4920 (unless (get-text-property (point) 'mouse-face)
4924 (let ((prop (get-text-property (1- (point)) 'mouse-face)))
4926 (when (and prop (eq prop (get-text-property (point) 'mouse-face)))
4930 (unless (or (bobp) (get-text-property (1- (point)) 'mouse-face))
4943 (if (and (not (eobp)) (get-text-property (point) 'mouse-face))
4945 (if (and (not (bobp)) (get-text-property (1- (point)) 'mouse-face))
4951 (setq completion (buffer-substring-no-properties beg end))
5002 BASE-SIZE, if non-nil, says how many characters of BUFFER's text
5032 (remove-text-properties (- (point) (length choice)) (point)
5075 "Normal hook run at the end of setting up a completion list buffer.
5120 ;; after the text of the completion list buffer is written.
5146 ;; the start of the file name component at point.
5174 (put-text-property element-start element-common-end
5177 (put-text-property element-common-end (1+ element-common-end)
5308 "Normal hook to run in the new buffer at the end of `clone-buffer'.")
5313 NEWNAME is modified by adding or incrementing <N> at the end as necessary.
5350 adding or incrementing <N> at the end as necessary to create a
5439 Optional third arg NORECORD non-nil means do not put this buffer at the
5542 probably not turn on this mode on a text-only terminal if you don't
5604 Enabling Visible mode makes all invisible text temporarily visible.
5627 ; ;; Discard undo information for the text insertion itself
5628 ; ;; and for the text deletion.above.
5634 ;(setq minibuffer-prompt-properties