procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(string-rectangle): Don't test delete-selection-mode.

Browse source
This commit is contained in:
Dave Love 2000-11-23 14:03:22 +00:00
parent 1e66b27ab8
commit 595dead24f
2 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2000-11-23 Dave Love <fx@gnu.org>
* rect.el (string-rectangle): Don't test delete-selection-mode.
2000-11-23 Gerd Moellmann <gerd@gnu.org>
* dired-aux.el (dired-add-entry): Don't call dired-get-filename

9
lisp/rect.el
View file

@ -334,8 +334,13 @@ When called from a program the rectangle's corners are START and END.
The left edge of the rectangle specifies the column for insertion.
This command does not delete or overwrite any existing text."
(interactive "*r\nsString rectangle: ")
(apply-on-rectangle 'string-rectangle-line start end string
(bound-and-true-p 'delete-selection-mode)))
;; XEmacs tests `pending-delete-mode' here, and replaces the
;; rectangle if that's on. Using `delete-selection-mode' here would
;; only be useful if `mark-even-if-inactive' is on since otherwise
;; we need the mark to be active, given the interactive spec, and
;; then we'd always delete. Maybe revisit this and consider testing
;; `mark-even-if-inactive' too?
(apply-on-rectangle 'string-rectangle-line start end string nil))
(defun string-rectangle-line (startcol endcol string delete)
(move-to-column-force startcol)