Skip to content

Commit c0ceaa1

Browse files
committed
Fix defadvice warning
- dtrt-indent.el:223:9: Warning: defvar ‘dtrt-indent-language-syntax-table’ docstring contains control char #x01 (position 629) - dtrt-indent.el:223:9: Warning: defvar ‘dtrt-indent-language-syntax-table’ docstring contains control char #x02 (position 671)
1 parent 7c2243e commit c0ceaa1

File tree

1 file changed

+7
-9
lines changed

1 file changed

+7
-9
lines changed

dtrt-indent.el

Lines changed: 7 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -1124,19 +1124,17 @@ Indentation offset set with file variable; not adjusted")
11241124
;;-----------------------------------------------------------------
11251125
;; Installation
11261126

1127-
(defadvice hack-one-local-variable
1128-
(before dtrt-indent-advise-hack-one-local-variable activate)
1129-
"Adviced by dtrt-indent.
1130-
1131-
Disable dtrt-indent if offset explicitly set."
1127+
(defun dtrt-indent-advise-hack-one-local-variable (var _val &rest _)
1128+
"Advice for `hack-one-local-variable' to disable dtrt-indent when necessary.
1129+
VAR corresponds to the first argument of `hack-one-local-variable'."
11321130
(cond
1133-
((eql (nth 2 (dtrt-indent--search-hook-mapping major-mode))
1134-
(ad-get-arg 0))
1131+
((eql (nth 2 (dtrt-indent--search-hook-mapping major-mode)) var)
11351132
(setq dtrt-indent-explicit-offset t))
1136-
((eql 'indent-tabs-mode
1137-
(ad-get-arg 0))
1133+
((eql 'indent-tabs-mode var)
11381134
(setq dtrt-indent-explicit-tab-mode t))))
11391135

1136+
(advice-add 'hack-one-local-variable :before #'dtrt-indent-advise-hack-one-local-variable)
1137+
11401138
(autoload 'dtrt-indent-diagnosis "dtrt-indent-diag"
11411139
"Guess indentation for the current buffer and output diagnostics."
11421140
t)

0 commit comments

Comments
 (0)