[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el |
Date: |
Sun, 09 Apr 2006 23:04:22 +0000 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el,
Kim F. Storm <=