|
6 | 6 | ;; Author: Shen, Jen-Chieh <[email protected]> |
7 | 7 | ;; Description: Management for indentation level. |
8 | 8 | ;; Keyword: control indent tab generic level |
9 | | -;; Version: 0.2.5 |
| 9 | +;; Version: 0.3.0 |
10 | 10 | ;; Package-Requires: ((emacs "26.1")) |
11 | 11 | ;; URL: https://github.com/jcs-elpa/indent-control |
12 | 12 |
|
|
186 | 186 | (or (cdr (assoc major-mode indent-control-alist)) |
187 | 187 | (quote tab-width))) |
188 | 188 |
|
189 | | -(defun indent-control--indent-level-record (&optional mode-name) |
190 | | - "Return record of current indent level by MODE-NAME." |
191 | | - (unless mode-name (setq mode-name major-mode)) |
192 | | - (cdr (assoc mode-name indent-control-records))) |
193 | | - |
194 | | -(defun indent-control--set-indent-level-record (new-level &optional mode-name) |
195 | | - "Set NEW-LEVEl to MODE-NAME indent record." |
196 | | - (unless mode-name (setq mode-name major-mode)) |
197 | | - (if (assoc mode-name indent-control-records) |
198 | | - (setf (cdr (assoc mode-name indent-control-records)) new-level) |
199 | | - (user-error "[WARNING] Indentation level record not found: %s" mode-name))) |
| 189 | +(defun indent-control--indent-level-record (&optional record-name) |
| 190 | + "Return record of current indent level by RECORD-NAME." |
| 191 | + (unless record-name (setq record-name major-mode)) |
| 192 | + (cdr (assoc record-name indent-control-records))) |
| 193 | + |
| 194 | +(defun indent-control--set-indent-level-record (new-level &optional record-name) |
| 195 | + "Set NEW-LEVEL to RECORD-NAME indent record." |
| 196 | + (unless record-name (setq record-name major-mode)) |
| 197 | + (if (assoc record-name indent-control-records) |
| 198 | + (setf (cdr (assoc record-name indent-control-records)) new-level) |
| 199 | + (user-error "[WARNING] Indentation level record not found: %s" record-name))) |
200 | 200 |
|
201 | 201 | (defun indent-control-set-indent-level-by-mode (new-level) |
202 | 202 | "Set the NEW-LEVEL for current major mode." |
|
0 commit comments