diff options
Diffstat (limited to 'lisp/display-fill-column-indicator.el')
| -rw-r--r-- | lisp/display-fill-column-indicator.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/display-fill-column-indicator.el b/lisp/display-fill-column-indicator.el index 3391aa371b7..e1395f000bf 100644 --- a/lisp/display-fill-column-indicator.el +++ b/lisp/display-fill-column-indicator.el @@ -57,12 +57,13 @@ See Info node `Displaying Boundaries' for details." (progn (setq display-fill-column-indicator t) (unless display-fill-column-indicator-character - (if (and (char-displayable-p ?\u2502) - (or (not (display-graphic-p)) - (eq (aref (query-font (car (internal-char-font nil ?\u2502))) 0) - (face-font 'default)))) - (setq display-fill-column-indicator-character ?\u2502) - (setq display-fill-column-indicator-character ?|)))) + (setq display-fill-column-indicator-character + (if (and (char-displayable-p ?\u2502) + (or (not (display-graphic-p)) + (eq (aref (query-font (car (internal-char-font nil ?\u2502))) 0) + (face-font 'default)))) + ?\u2502 + ?|)))) (setq display-fill-column-indicator nil))) (defun display-fill-column-indicator--turn-on () @@ -73,9 +74,7 @@ See Info node `Displaying Boundaries' for details." ;;;###autoload (define-globalized-minor-mode global-display-fill-column-indicator-mode - display-fill-column-indicator-mode display-fill-column-indicator--turn-on - ;; See bug#41145 - :group 'display-fill-column-indicator) + display-fill-column-indicator-mode display-fill-column-indicator--turn-on) (provide 'display-fill-column-indicator) |