remove duplicated defvar "creature/mode-line-region-info"
This commit is contained in:
1 file changed
-13
@@ -30,19 +30,6 @@
|
|||||||
"Length of marked string.")
|
"Length of marked string.")
|
||||||
(put 'creature/mode-line-region-info 'risky-local-variable t)
|
(put 'creature/mode-line-region-info 'risky-local-variable t)
|
||||||
|
|
||||||
(defvar creature/mode-line-region-info
|
|
||||||
'(:eval
|
|
||||||
(when (and (region-active-p) (eq creature/focus-window (selected-window)))
|
|
||||||
(let ((length (- (region-end) (region-beginning)))
|
|
||||||
(line (- (line-number-at-pos (region-end))
|
|
||||||
(line-number-at-pos (region-beginning))
|
|
||||||
-1)))
|
|
||||||
(propertize
|
|
||||||
(format " [%d|%d]" length line)
|
|
||||||
))))
|
|
||||||
"Length of marked string.")
|
|
||||||
(put 'creature/mode-line-region-info 'risky-local-variable t)
|
|
||||||
|
|
||||||
(defvar creature/mode-line-line-and-column
|
(defvar creature/mode-line-line-and-column
|
||||||
`(line-number-mode
|
`(line-number-mode
|
||||||
(column-number-mode
|
(column-number-mode
|
||||||
|
|||||||
Reference in new issue
Block a user