[nongnu] elpa/telephone-line 1b52832b44 054/195: Nameless indentation

[ELPA Syncer]

branch: elpa/telephone-line
commit 1b52832b44b262576a5d0277eecd5d15fb1238c0
Author: Daniel Bordak <dbordak@fastmail.fm>
Commit: Daniel Bordak <dbordak@fastmail.fm>

    Nameless indentation
---
 telephone-line-utils.el |  2 ++
 telephone-line.el       | 16 ++++++++--------
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/telephone-line-utils.el b/telephone-line-utils.el
index 62fadf9ed6..573becafb7 100644
--- a/telephone-line-utils.el
+++ b/telephone-line-utils.el
@@ -179,6 +179,7 @@ color1 and color2."
   "Define a separator named NAME, using AXIS-FUNC and PATTERN-FUNC to create 
the shape, optionally forcing FORCED-WIDTH.
 
 NOTE: Forced-width primary separators are not currently supported."
+  (declare (indent defun))
   `(telephone-line--defseparator-internal ,name
      (let ((height (telephone-line-separator-height))
            (width (or ,forced-width (telephone-line-separator-width))))
@@ -197,6 +198,7 @@ NOTE: Forced-width primary separators are not currently 
supported."
 
 (defmacro telephone-line-defsubseparator (name axis-func pattern-func 
&optional alt-char forced-width)
   "Define a subseparator named NAME, using AXIS-FUNC and PATTERN-FUNC to 
create the shape, optionally forcing FORCED-WIDTH."
+  (declare (indent defun))
   `(telephone-line--defseparator-internal ,name
      (let* ((height (telephone-line-separator-height))
             (width (or ,forced-width (telephone-line-separator-width)))
diff --git a/telephone-line.el b/telephone-line.el
index 6c901c4427..5ae382d32f 100644
--- a/telephone-line.el
+++ b/telephone-line.el
@@ -237,28 +237,28 @@ separators, as they are conditional, are evaluated 
on-the-fly."
       base-width)))
 
 (defcustom telephone-line-lhs '((accent . (telephone-line-vc-segment))
-                                (nil    . (telephone-line-minor-mode-segment
-                                           telephone-line-buffer-segment)))
+                  (nil    . (telephone-line-minor-mode-segment
+                             telephone-line-buffer-segment)))
   "Left hand side segment alist."
   :type '(alist :key-type segment-color :value-type subsegment-list)
   :group 'telephone-line)
 
 (defcustom telephone-line-rhs '((nil    . (telephone-line-misc-info-segment
-                                           telephone-line-major-mode-segment))
-                                (accent . (telephone-line-position-segment)))
+                             telephone-line-major-mode-segment))
+                  (accent . (telephone-line-position-segment)))
   "Right hand side segment alist."
   :type '(alist :key-type segment-color :value-type subsegment-list)
   :group 'telephone-line)
 
 (defun telephone-line--generate-mode-line-lhs ()
   (telephone-line-add-separators telephone-line-lhs
-                                 telephone-line-primary-left-separator
-                                 telephone-line-secondary-left-separator))
+                   telephone-line-primary-left-separator
+                   telephone-line-secondary-left-separator))
 
 (defun telephone-line--generate-mode-line-rhs ()
   (telephone-line-add-separators telephone-line-rhs
-                                 telephone-line-primary-right-separator
-                                 telephone-line-secondary-right-separator))
+                   telephone-line-primary-right-separator
+                   telephone-line-secondary-right-separator))
 
 (defun telephone-line--generate-mode-line ()
   `(,@(telephone-line--generate-mode-line-lhs)