[Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el

[Kim F. Storm]

Index: emacs/lisp/emulation/cua-rect.el
diff -u emacs/lisp/emulation/cua-rect.el:1.32 
emacs/lisp/emulation/cua-rect.el:1.33
--- emacs/lisp/emulation/cua-rect.el:1.32       Sat Mar 25 00:55:09 2006
+++ emacs/lisp/emulation/cua-rect.el    Sun Apr  9 23:04:22 2006
@@ -631,7 +631,7 @@
     (if (not (cua--rectangle-virtual-edges))
        (cua--rectangle-operation nil nil nil nil nil ; do not tabify
          '(lambda (s e l r)
-            (setq rect (cons (buffer-substring-no-properties s e) rect))))
+            (setq rect (cons (filter-buffer-substring s e nil t) rect))))
       (cua--rectangle-operation nil 1 nil nil nil ; do not tabify
        '(lambda (s e l r v)
           (let ((copy t) (bs 0) (as 0) row)
@@ -649,7 +649,7 @@
               (setq as (- r (max (current-column) l))
                     e (point)))
                     (setq row (if (and copy (> e s))
-                          (buffer-substring-no-properties s e)
+                          (filter-buffer-substring s e nil t)
                         ""))
             (when (> bs 0)
               (setq row (concat (make-string bs ?\s) row)))
@@ -1127,12 +1127,12 @@
      '(lambda (s e l r)
         (cond
          ((re-search-forward "0x\\([0-9a-fA-F]+\\)" e t)
-          (let* ((txt (buffer-substring-no-properties (match-beginning 1) 
(match-end 1)))
+          (let* ((txt (filter-buffer-substring (match-beginning 1) (match-end 
1) nil t))
                  (n (string-to-number txt 16))
                  (fmt (format "0x%%0%dx" (length txt))))
             (replace-match (format fmt (+ n increment)))))
          ((re-search-forward "\\( *-?[0-9]+\\)" e t)
-          (let* ((txt (buffer-substring-no-properties (match-beginning 1) 
(match-end 1)))
+          (let* ((txt (filter-buffer-substring (match-beginning 1) (match-end 
1) nil t))
                  (prefix (if (= (aref txt 0) ?0) "0" ""))
                  (n (string-to-number txt 10))
                  (fmt (format "%%%s%dd" prefix (length txt))))
@@ -1213,7 +1213,7 @@
       (when replace
         (goto-char (point-min))
         (while (not (eobp))
-          (setq z (cons (buffer-substring (point) (line-end-position)) z))
+          (setq z (cons (filter-buffer-substring (point) (line-end-position)) 
z))
           (forward-line 1))))
     (if (not cua--debug)
        (kill-buffer auxbuf))