Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
freebsd
GitHub Repository: freebsd/freebsd-src
 Path: blob/main/crypto/krb5/src/util/krb5-batch-reindent.el
34869 views
1
;;; -*- mode: emacs-lisp; indent-tabs-mode: nil -*-

2
(if (not noninteractive)

3
    (error "to be used only with -batch"))

4
;; Avoid vc-mode interference.

5
(setq vc-handled-backends nil)

6


7
;; for debugging

8
(defun report-tabs ()

9
  (let ((tab-found (search-forward "\t" nil t)))

10
    (if tab-found

11
        (message "Tab found @%s." tab-found)

12
      (message "No tabs found."))))

13


14
(defun whitespace-new ()

15
    ;; Sometimes whitespace-cleanup gets its internals confused

16
    ;; when whitespace-mode hasn't been activated on the buffer.

17
    (let ((whitespace-indent-tabs-mode indent-tabs-mode)

18
          (whitespace-style '(empty trailing)))

19
      ;; Only clean up tab issues if indent-tabs-mode is explicitly

20
      ;; set in the file local variables.

21
      (if (local-variable-p 'indent-tabs-mode)

22
          (progn

23
            (message "Enabling tab cleanups.")

24
            (add-to-list 'whitespace-style 'indentation)

25
            (add-to-list 'whitespace-style 'space-before-tab)

26
            (add-to-list 'whitespace-style 'space-after-tab)))

27
;;      (message "indent-tabs-mode=%s" indent-tabs-mode)

28
      (message "Cleaning whitespace...")

29
      (whitespace-cleanup)))

30


31
;; Old style whitespace.el uses different variables.

32
(defun whitespace-old ()

33
  (let (whitespace-check-buffer-indent

34
        whitespace-check-buffer-spacetab)

35
    (if (local-variable-p 'indent-tabs-mode)

36
        (progn

37
          (message "Enabling tab cleanups.")

38
          (setq whitespace-check-buffer-indent indent-tabs-mode)

39
          (setq whitespace-check-buffer-spacetab t)))

40
    (message "Cleaning whitespace...")

41
    (whitespace-cleanup)))

42


43
(while command-line-args-left

44
  (let ((filename (car command-line-args-left))

45
        ;; No backup files; we have version control.

46
        (make-backup-files nil))

47
    (find-file filename)

48
    (message "Read %s." filename)

49


50
    (if (not indent-tabs-mode)

51
        (progn

52
          (message "Untabifying...")

53
          (untabify (point-min) (point-max))))

54


55
    ;; Only reindent if the file C style is guessed to be "krb5".

56
    ;; Note that krb5-c-style.el already has a heuristic for setting

57
    ;; the C style if the file has "c-basic-offset: 4;

58
    ;; indent-tabs-mode: nil".

59
    (if (equal c-indentation-style "krb5")

60
        (c-indent-region (point-min) (point-max)))

61


62
    (if (fboundp 'whitespace-newline-mode)

63
        (whitespace-new)

64
      (whitespace-old))

65


66
    (save-buffer)

67
    (kill-buffer nil)

68
    (setq command-line-args-left (cdr command-line-args-left))))

69


70