Mercurial > emacs

comparison lisp/misc.el @ 88155:d7ddb3e565de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync with trunk
author Henrik Enberg <henrik.enberg@telia.com>
date Mon, 16 Jan 2006 00:03:54 +0000
parents 829beb9a6a4b
children
comparison
equal deleted inserted replaced
88154:8ce476d3ba36 88155:d7ddb3e565de
1 ;;; misc.el --- some nonstandard basic editing commands for Emacs 1 ;;; misc.el --- some nonstandard basic editing commands for Emacs
2 2
3 ;; Copyright (C) 1989 Free Software Foundation, Inc. 3 ;; Copyright (C) 1989, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
4 4
5 ;; Maintainer: FSF 5 ;; Maintainer: FSF
6 ;; Keywords: convenience 6 ;; Keywords: convenience
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details. 18 ;; GNU General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02110-1301, USA.
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26 26
27 ;;; Code: 27 ;;; Code:
28 28
56 (point) 56 (point)
57 (min (save-excursion (end-of-line) (point)) 57 (min (save-excursion (end-of-line) (point))
58 (+ n (point))))))) 58 (+ n (point)))))))
59 (insert string))) 59 (insert string)))
60 60
61 ;; Variation of `zap-to-char'.
62
63 (defun zap-up-to-char (arg char)
64 "Kill up to, but not including ARG'th occurrence of CHAR.
65 Case is ignored if `case-fold-search' is non-nil in the current buffer.
66 Goes backward if ARG is negative; error if CHAR not found.
67 Ignores CHAR at point."
68 (interactive "p\ncZap up to char: ")
69 (let ((direction (if (>= arg 0) 1 -1)))
70 (kill-region (point)
71 (progn
72 (forward-char direction)
73 (unwind-protect
74 (search-forward (char-to-string char) nil nil arg)
75 (backward-char direction))
76 (point)))))
77
78 ;; These were added with an eye to making possible a more CCA-compatible
79 ;; command set; but that turned out not to be interesting.
80
81 (defun mark-beginning-of-buffer ()
82 "Set mark at the beginning of the buffer."
83 (interactive)
84 (push-mark (point-min)))
85
86 (defun mark-end-of-buffer ()
87 "Set mark at the end of the buffer."
88 (interactive)
89 (push-mark (point-max)))
90
91 (defun upcase-char (arg)
92 "Uppercasify ARG chars starting from point. Point doesn't move."
93 (interactive "p")
94 (save-excursion
95 (upcase-region (point) (progn (forward-char arg) (point)))))
96
97 (defun forward-to-word (arg)
98 "Move forward until encountering the beginning of a word.
99 With argument, do this that many times."
100 (interactive "p")
101 (or (re-search-forward (if (> arg 0) "\\W\\b" "\\b\\W") nil t arg)
102 (goto-char (if (> arg 0) (point-max) (point-min)))))
103
104 (defun backward-to-word (arg)
105 "Move backward until encountering the end of a word.
106 With argument, do this that many times."
107 (interactive "p")
108 (forward-to-word (- arg)))
109
61 (provide 'misc) 110 (provide 'misc)
62 111
112 ;;; arch-tag: 908f7884-c19e-4388-920c-9cfa425e449b
63 ;;; misc.el ends here 113 ;;; misc.el ends here