[Emacs-diffs] Changes to emacs/lisp/misc.el

[Lute Kamstra]

Index: emacs/lisp/misc.el
diff -c emacs/lisp/misc.el:1.10 emacs/lisp/misc.el:1.11
*** emacs/lisp/misc.el:1.10     Mon Sep  1 11:45:13 2003
--- emacs/lisp/misc.el  Wed Sep 24 04:51:33 2003
***************
*** 1,6 ****
  ;;; misc.el --- some nonstandard basic editing commands for Emacs
  
! ;; Copyright (C) 1989 Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: convenience
--- 1,6 ----
  ;;; misc.el --- some nonstandard basic editing commands for Emacs
  
! ;; Copyright (C) 1989, 2003 Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: convenience
***************
*** 58,63 ****
--- 58,80 ----
                                 (+ n (point)))))))
      (insert string)))
  
+ ;; Variation of `zap-to-char'.
+ 
+ (defun zap-up-to-char (arg char)
+   "Kill up to, but not including ARG'th occurrence of CHAR.
+ Case is ignored if `case-fold-search' is non-nil in the current buffer.
+ Goes backward if ARG is negative; error if CHAR not found.
+ Ignores CHAR at point."
+   (interactive "p\ncZap up to char: ")
+   (let ((direction (if (>= arg 0) 1 -1)))
+     (kill-region (point)
+                (progn
+                  (forward-char direction)
+                  (unwind-protect
+                      (search-forward (char-to-string char) nil nil arg)
+                    (backward-char direction))
+                  (point)))))
+ 
  ;; These were added with an eye to making possible a more CCA-compatible
  ;; command set; but that turned out not to be interesting.
  
***************
*** 72,78 ****
    (push-mark (point-max)))
  
  (defun upcase-char (arg)
!   "Uppercasify ARG chars starting from point.  Point doesn't move"
    (interactive "p")
    (save-excursion
      (upcase-region (point) (progn (forward-char arg) (point)))))
--- 89,95 ----
    (push-mark (point-max)))
  
  (defun upcase-char (arg)
!   "Uppercasify ARG chars starting from point.  Point doesn't move."
    (interactive "p")
    (save-excursion
      (upcase-region (point) (progn (forward-char arg) (point)))))