Lines Matching +defs:skip +defs:keep
66 (defcustom query-replace-skip-read-only nil
522 (defalias 'delete-non-matching-lines 'keep-lines)
527 (defun keep-lines-read-args (prompt)
528 "Read arguments for `keep-lines' and friends.
535 (defun keep-lines (regexp &optional rstart rend interactive)
562 (keep-lines-read-args "Keep lines (containing match for regexp): ")))
635 (keep-lines-read-args "Flush lines (containing match for regexp): ")))
679 (keep-lines-read-args "How many matches for (regexp): "))
911 (defun occur-accumulate-lines (count &optional keep-props)
922 (if (and keep-props (if (boundp 'jit-lock-mode) jit-lock-mode)
927 (if (and keep-props (not (eq occur-excluded-properties t)))
1104 title-face prefix-face match-face keep-props)
1141 (if (and keep-props
1146 (if (and keep-props (not (eq occur-excluded-properties t)))
1197 (occur-engine-add-prefix (nreverse (cdr (occur-accumulate-lines (- (1+ (abs nlines))) keep-props))))
1201 (cdr (occur-accumulate-lines (1+ nlines) keep-props)))))))))
1244 "Type Space or `y' to replace one match, Delete or `n' to skip to next,
1258 (define-key map "\d" 'skip)
1259 (define-key map [delete] 'skip)
1260 (define-key map [backspace] 'skip)
1262 (define-key map "n" 'skip)
1264 (define-key map "N" 'skip)
1288 The valid answers include `act', `skip', `act-and-show',
1429 (keep-going t)
1482 (while (and keep-going
1539 (unless (and query-replace-skip-read-only
1552 query-replace-skip-read-only))
1602 (setq keep-going nil)
1631 (setq keep-going nil)
1651 ((eq def 'skip)
1702 (setq keep-going nil)
1709 (if (not (memq def '(skip backup)))
1737 (and keep-going stack)))