Mercurial > emacs

comparison lisp/misc.el @ 74260:b55f65338d33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(zap-up-to-char): Doc fix.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 27 Nov 2006 17:02:43 +0000
parents 8dbfc40e9ab8
children b2e5081b9320
comparison
equal deleted inserted replaced
74259:ab755f5bf208 74260:b55f65338d33
60 (insert string))) 60 (insert string)))
61 61
62 ;; Variation of `zap-to-char'. 62 ;; Variation of `zap-to-char'.
63 63
64 (defun zap-up-to-char (arg char) 64 (defun zap-up-to-char (arg char)
65 "Kill up to, but not including ARG'th occurrence of CHAR. 65 "Kill up to, but not including ARGth occurrence of CHAR.
66 Case is ignored if `case-fold-search' is non-nil in the current buffer. 66 Case is ignored if `case-fold-search' is non-nil in the current buffer.
67 Goes backward if ARG is negative; error if CHAR not found. 67 Goes backward if ARG is negative; error if CHAR not found.
68 Ignores CHAR at point." 68 Ignores CHAR at point."
69 (interactive "p\ncZap up to char: ") 69 (interactive "p\ncZap up to char: ")
70 (let ((direction (if (>= arg 0) 1 -1))) 70 (let ((direction (if (>= arg 0) 1 -1)))