diff options
| author | Mattias EngdegÄrd | 2019-08-06 13:09:20 +0200 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2019-08-08 12:10:36 +0200 |
| commit | d1ec33eaead82138ba5e65d59fd68c7da6d9e3a5 (patch) | |
| tree | 0a0aab1b94f59d93a0b19a4801024f84630f7108 | |
| parent | f09dc0b81c23046c17574c2ef8d614907455f622 (diff) | |
| download | emacs-d1ec33eaead82138ba5e65d59fd68c7da6d9e3a5.tar.gz emacs-d1ec33eaead82138ba5e65d59fd68c7da6d9e3a5.zip | |
Suppress relint errors in fortran.el
* lisp/progmodes/fortran.el (fortran-indent-to-column):
Suppress relint complaints about duplicated character in skip-set;
it's intentional and harmless.
| -rw-r--r-- | lisp/progmodes/fortran.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index f01e866f557..ff7b408c204 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -1820,7 +1820,9 @@ notes: 1) A non-zero/non-blank character in column 5 indicates a continuation | |||
| 1820 | fortran-comment-indent-char)) | 1820 | fortran-comment-indent-char)) |
| 1821 | (chars (string ?\s ?\t char))) | 1821 | (chars (string ?\s ?\t char))) |
| 1822 | (goto-char (match-end 0)) | 1822 | (goto-char (match-end 0)) |
| 1823 | ;; relint suppression: Duplicated character | ||
| 1823 | (skip-chars-backward chars) | 1824 | (skip-chars-backward chars) |
| 1825 | ;; relint suppression: Duplicated character | ||
| 1824 | (delete-region (point) (progn (skip-chars-forward chars) | 1826 | (delete-region (point) (progn (skip-chars-forward chars) |
| 1825 | (point))) | 1827 | (point))) |
| 1826 | (insert-char char (- col (current-column))))) | 1828 | (insert-char char (- col (current-column))))) |