diff options
Diffstat (limited to 'lisp/net/sieve-mode.el')
| -rw-r--r-- | lisp/net/sieve-mode.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/net/sieve-mode.el b/lisp/net/sieve-mode.el index 1f2ac56d418..54bccc179aa 100644 --- a/lisp/net/sieve-mode.el +++ b/lisp/net/sieve-mode.el | |||
| @@ -48,6 +48,13 @@ | |||
| 48 | "Sieve." | 48 | "Sieve." |
| 49 | :group 'languages) | 49 | :group 'languages) |
| 50 | 50 | ||
| 51 | (defcustom sieve-indent-offset 2 | ||
| 52 | "Indentation offset for Sieve mode." | ||
| 53 | :type 'integer | ||
| 54 | :group 'sieve | ||
| 55 | :safe #'integerp | ||
| 56 | :version "31.1") | ||
| 57 | |||
| 51 | (defcustom sieve-mode-hook nil | 58 | (defcustom sieve-mode-hook nil |
| 52 | "Hook run in sieve mode buffers." | 59 | "Hook run in sieve mode buffers." |
| 53 | :type 'hook) | 60 | :type 'hook) |
| @@ -180,7 +187,7 @@ Turning on Sieve mode runs `sieve-mode-hook'." | |||
| 180 | (let ((depth (car (syntax-ppss)))) | 187 | (let ((depth (car (syntax-ppss)))) |
| 181 | (when (looking-at "[ \t]*}") | 188 | (when (looking-at "[ \t]*}") |
| 182 | (setq depth (1- depth))) | 189 | (setq depth (1- depth))) |
| 183 | (indent-line-to (* 2 depth)))) | 190 | (indent-line-to (* sieve-indent-offset depth)))) |
| 184 | ;; Skip to the end of the indentation if at the beginning of the | 191 | ;; Skip to the end of the indentation if at the beginning of the |
| 185 | ;; line. | 192 | ;; line. |
| 186 | (when (save-excursion | 193 | (when (save-excursion |