[Emacs-diffs] trunk r116008: Partially fix Bug#16403.

[Bastien Guerry]

------------------------------------------------------------
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)