Skip to content

Commit

Permalink
Specify cursor properties as t instead of 1. Fixes
Browse files Browse the repository at this point in the history
github.com/alpaker/issues/28.
  • Loading branch information
aaker committed Jan 26, 2013
1 parent 917bcb3 commit cbf9224
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions fill-column-indicator.el
Original file line number Diff line number Diff line change
Expand Up @@ -507,7 +507,7 @@ on troubleshooting.)"
;; relevant buffer position.
(defun fci-rule-display (blank rule-img rule-str for-pre-string)
"Generate a display specification for a fill-column rule overlay string."
(let* ((cursor-prop (if (and (not for-pre-string) (not fci-newline)) 1))
(let* ((cursor-prop (if (and (not for-pre-string) (not fci-newline)) t))
(propertized-rule-str (propertize rule-str 'cursor cursor-prop))
(display-prop (if rule-img
`((when (not (or (display-images-p)
Expand Down Expand Up @@ -692,8 +692,8 @@ rough heuristic.)"
(eol-str (char-to-string fci-eol-char))
(end-cap (propertize blank-str 'display '(space :width 0)))
(pre-or-post-eol (propertize eol-str
'cursor 1
'display (propertize eol-str 'cursor 1)))
'cursor t
'display (propertize eol-str 'cursor t)))
(pre-padding (propertize blank-str 'display fci-padding-display))
(pre-rule (fci-rule-display blank-str img str t))
(at-rule (fci-rule-display blank-str img str fci-newline))
Expand Down

0 comments on commit cbf9224

Please sign in to comment.