Lines Matching +defs:pending +defs:delete
235 (delete-dups
463 ;; and we have a left margin, delete that from the blank line.
470 (delete-region (point) (progn (end-of-line) (point))))))
532 (defun delete-indentation (&optional arg)
534 If there is a fill prefix, delete it from the beginning of this line.
541 (delete-region (point) (1- (point)))
543 ;; delete the prefix.
549 (delete-region (point) (+ (point) (length fill-prefix))))
552 (defalias 'join-line #'delete-indentation) ; easier to find
554 (defun delete-blank-lines ()
555 "On blank line, delete all surrounding blank lines, leaving just one.
556 On isolated blank line, delete that one.
557 On nonblank line, delete any immediately following blank lines."
575 (delete-region (point)
585 (delete-region (point)
592 (delete-region (point) (point-max)))))
594 (defun delete-trailing-whitespace ()
605 ;; Don't delete formfeeds, even if they are considered whitespace.
609 (delete-region (point) (match-end 0))))))
618 (delete-horizontal-space t)
637 (delete-horizontal-space t))
674 (delete-char arg)))
704 (delete-horizontal-space)
711 (defun delete-horizontal-space (&optional backward-only)
713 If BACKWARD-ONLY is non-nil, only delete them before point."
716 (delete-region
736 (delete-region
1262 (delete-minibuffer-contents)
1322 (delete-minibuffer-contents)
1387 "Non-nil if `pending-undo-list' is not just a tail of `buffer-undo-list'.")
1392 (defvar pending-undo-list nil
1420 (or (eq pending-undo-list t)
1440 (let ((equiv (gethash pending-undo-list undo-equiv-table)))
1450 (setq pending-undo-list equiv)))
1461 (if undo-in-region t pending-undo-list)
1486 (delete-auto-save-file-if-necessary recent-save))
1514 (or (listp pending-undo-list)
1518 (setq pending-undo-list (primitive-undo n pending-undo-list))
1519 (if (null pending-undo-list)
1520 (setq pending-undo-list t))))
1533 "Set `pending-undo-list' to the front of the undo list.
1540 (setq pending-undo-list
1864 (delete-file error-file))
2071 ;; It is rude to delete a buffer which the command is not using.
2084 ;; delete everything but the specified region,
2087 (delete-region (max start end) (point-max))
2088 (delete-region (point-min) (min start end))
2159 (delete-file error-file))
2197 (when stderr-file (delete-file stderr-file))
2198 (when lc (delete-file lc)))))
2350 (defun filter-buffer-substring (beg end &optional delete noprops)
2369 `buffer-substring-no-properties', or `delete-and-extract-region'
2375 ((or delete buffer-substring-filters)
2378 (let ((string (if delete (delete-and-extract-region beg end)
2685 "If non-nil, function used by `yank-pop' to delete last stretch of yanked text.
2715 (funcall (or yank-undo-function 'delete-region) (point) (mark t))
2716 (funcall (or yank-undo-function 'delete-region) (mark t) (point)))
2774 ;; Internal subroutine of delete-char
2780 ;; Internal subroutine of backward-delete-char
2786 (defcustom backward-delete-char-untabify-method 'untabify
2788 Can be `untabify' -- turn a tab to many spaces, then delete one space;
2789 `hungry' -- delete all whitespace, both tabs and spaces;
2790 `all' -- delete all whitespace, including tabs, spaces and newlines;
2791 nil -- just delete one character."
2796 (defun backward-delete-char-untabify (arg &optional killp)
2798 The exact behavior depends on `backward-delete-char-untabify-method'.
2803 (when (eq backward-delete-char-untabify-method 'untabify)
2812 (delete-char 1)))
2815 (delete-backward-char
2816 (let ((skip (cond ((eq backward-delete-char-untabify-method 'hungry) " \t")
2817 ((eq backward-delete-char-untabify-method 'all)
3158 (let ((beg (point))) (forward-line 1) (delete-region beg (point)))."
4084 ;; FIXME: We first delete the two pieces of text, so markers that
4086 (setq word2 (delete-and-extract-region (car pos2) (cdr pos2)))
4088 (insert (delete-and-extract-region (car pos1) (cdr pos1)))
4626 (delete-other-windows))
4868 (define-key map "\e\e\e" 'delete-completion-window)
4893 (defun delete-completion-window ()
4900 (delete-frame (selected-frame)))
4901 (delete-window (selected-window))
4964 (defun choose-completion-delete-max-match (string)
4971 ;; upper bound on how much we can match and delete.
4982 (delete-char len)))
5003 to keep. If it is nil, we call `choose-completion-delete-max-match'
5004 to decide what to delete."
5026 (delete-region (+ base-size (if mini-p
5030 (choose-completion-delete-max-match choice))
5481 (fboundp 'x-backspace-delete-keys-p)
5482 (x-backspace-delete-keys-p))
5494 delete backward, and Delete can be used to delete forward.
5555 `(([C-delete] [C-backspace])
5556 ([M-delete] [M-backspace])
5557 ([C-M-delete] [C-M-backspace])
5559 [C-delete] [C-backspace])))
5560 (old-state (lookup-key function-key-map [delete])))
5564 (define-key function-key-map [delete] [?\C-d])
5565 (define-key function-key-map [kp-delete] [?\C-d])
5567 (define-key function-key-map [delete] [?\C-?])
5568 (define-key function-key-map [kp-delete] [?\C-?])
5571 ;; Maybe swap bindings of C-delete and C-backspace, etc.
5572 (unless (equal old-state (lookup-key function-key-map [delete]))
5626 ; (delete-region start end)