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

[Luc Teirlinck]

Index: emacs/lisp/macros.el
diff -c emacs/lisp/macros.el:1.41 emacs/lisp/macros.el:1.42
*** emacs/lisp/macros.el:1.41   Mon Sep  1 15:45:13 2003
--- emacs/lisp/macros.el        Tue Aug 31 23:38:53 2004
***************
*** 1,6 ****
  ;;; macros.el --- non-primitive commands for keyboard macros
  
! ;; Copyright (C) 1985, 86, 87, 92, 94, 95 Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: abbrev
--- 1,6 ----
  ;;; macros.el --- non-primitive commands for keyboard macros
  
! ;; Copyright (C) 1985, 86, 87, 92, 94, 95, 04 Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: abbrev
***************
*** 151,157 ****
                     (cond ((= char ?\\)
                            (insert "\\\\"))
                             ((= char ?\")
!                             (insert "\\\""))   
                           ((= char ?\;)
                            (insert "\\;"))
                           ((= char 127)
--- 151,157 ----
                     (cond ((= char ?\\)
                            (insert "\\\\"))
                             ((= char ?\")
!                             (insert "\\\""))
                           ((= char ?\;)
                            (insert "\\;"))
                           ((= char 127)
***************
*** 240,247 ****
  
  ;;;###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.
  
  When called from lisp, this function takes two arguments TOP and
  BOTTOM, describing the current region.  TOP must be before BOTTOM.
--- 240,248 ----
  
  ;;;###autoload
  (defun apply-macro-to-region-lines (top bottom &optional 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,284 ****
      \\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.
! "
    (interactive "r")
    (or macro
        (progn
--- 278,284 ----
      \\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."
    (interactive "r")
    (or macro
        (progn
***************
*** 286,295 ****
            (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)))
          next-line-marker)
        (goto-char top)
        (if (not (bolp))
--- 286,292 ----
            (error "No keyboard macro has been defined"))
        (setq macro last-kbd-macro)))
    (save-excursion
!     (let ((end-marker (copy-marker bottom))
          next-line-marker)
        (goto-char top)
        (if (not (bolp))