diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2004-08-31 23:38:53 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2004-08-31 23:38:53 +0000 |
| commit | 2b1c8da040de829cd62574b24e332097f27493ce (patch) | |
| tree | 621ba12b98a5bd6f1c1f20174278a37a1aae0916 /lisp/macros.el | |
| parent | 745e0c15bbafa7db801057de5df0a68d772b0800 (diff) | |
| download | emacs-2b1c8da040de829cd62574b24e332097f27493ce.tar.gz | |
(apply-macro-to-region-lines): Make it operate on all lines that begin
in the region, rather than on all complete lines in the region.
Diffstat (limited to 'lisp/macros.el')
| -rw-r--r-- | lisp/macros.el | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/lisp/macros.el b/lisp/macros.el index 72ba3f11721..0de5d223ee0 100644 --- a/lisp/macros.el +++ b/lisp/macros.el @@ -1,6 +1,6 @@ ;;; macros.el --- non-primitive commands for keyboard macros -;; Copyright (C) 1985, 86, 87, 92, 94, 95 Free Software Foundation, Inc. +;; Copyright (C) 1985, 86, 87, 92, 94, 95, 04 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: abbrev @@ -151,7 +151,7 @@ use this command, and then save the file." (cond ((= char ?\\) (insert "\\\\")) ((= char ?\") - (insert "\\\"")) + (insert "\\\"")) ((= char ?\;) (insert "\\;")) ((= char 127) @@ -240,8 +240,9 @@ Possibilities: \\<query-replace-map> ;;;###autoload (defun apply-macro-to-region-lines (top bottom &optional macro) - "For each complete line between point and mark, move to the beginning -of the line, and run the last keyboard macro. + "Apply last keyboard macro to all lines in the region. +For each line that begins in the region, move to the beginning of +the line, and run the last keyboard macro. When called from lisp, this function takes two arguments TOP and BOTTOM, describing the current region. TOP must be before BOTTOM. @@ -277,8 +278,7 @@ and write a macro to massage a word into a table entry: \\C-x ) and then select the region of un-tablified names and use -`\\[apply-macro-to-region-lines]' to build the table from the names. -" +`\\[apply-macro-to-region-lines]' to build the table from the names." (interactive "r") (or macro (progn @@ -286,10 +286,7 @@ and then select the region of un-tablified names and use (error "No keyboard macro has been defined")) (setq macro last-kbd-macro))) (save-excursion - (let ((end-marker (progn - (goto-char bottom) - (beginning-of-line) - (point-marker))) + (let ((end-marker (copy-marker bottom)) next-line-marker) (goto-char top) (if (not (bolp)) |