[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r116008: Partially fix Bug#16403.
From: |
Bastien Guerry |
Subject: |
[Emacs-diffs] trunk r116008: Partially fix Bug#16403. |
Date: |
Mon, 13 Jan 2014 10:56:24 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 116008
revision-id: address@hidden
parent: address@hidden
committer: Bastien Guerry <address@hidden>
branch nick: trunk
timestamp: Mon 2014-01-13 11:55:22 +0100
message:
Partially fix Bug#16403.
* rect.el (rectangle-mark-mode): When the region is not active,
display a message saying that the mark as been set and that
rectangle mode is in use.
(rectangle--highlight-for-redisplay): Only put an overlay with a
visible vertical bar when (display-graphic-p) is non-nil.
This partially fixes Bug#16403.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/rect.el rect.el-20091113204419-o5vbwnq5f7feedwu-83
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2014-01-13 08:04:09 +0000
+++ b/lisp/ChangeLog 2014-01-13 10:55:22 +0000
@@ -1,3 +1,12 @@
+2014-01-13 Bastien Guerry <address@hidden>
+
+ * rect.el (rectangle-mark-mode): When the region is not active,
+ display a message saying that the mark as been set and that
+ rectangle mode is in use.
+ (rectangle--highlight-for-redisplay): Only put an overlay with a
+ visible vertical bar when (display-graphic-p) is non-nil.
+ This partially fixes Bug#16403.
+
2014-01-13 Juri Linkov <address@hidden>
* info.el (Info-find-file): Go to DIR before displaying the error
=== modified file 'lisp/rect.el'
--- a/lisp/rect.el 2014-01-01 07:43:34 +0000
+++ b/lisp/rect.el 2014-01-13 10:55:22 +0000
@@ -444,7 +444,8 @@
(lambda () (rectangle-mark-mode -1)))
(unless (region-active-p)
(push-mark)
- (activate-mark))))
+ (activate-mark)
+ (message "Mark set (rectangle mode)"))))
(defun rectangle--extract-region (orig &optional delete)
(if (not rectangle-mark-mode)
@@ -553,10 +554,10 @@
(overlay-put ol 'after-string str))))
((overlay-get ol 'after-string)
(overlay-put ol 'after-string nil)))
- (when (= leftcol rightcol)
+ (when (and (= leftcol rightcol) (display-graphic-p))
;; Make zero-width rectangles visible!
- (overlay-put ol 'after-string
- (concat (propertize " "
+ (overlay-put ol 'after-string
+ (concat (propertize " "
'face '(region (:height 0.2)))
(overlay-get ol 'after-string))))
(push ol nrol)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r116008: Partially fix Bug#16403.,
Bastien Guerry <=