emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/valign 056138e 007/198: * valign.el (valign--cell-align


From: Stefan Monnier
Subject: [elpa] externals/valign 056138e 007/198: * valign.el (valign--cell-alignment): Fix unused variable.
Date: Tue, 1 Dec 2020 18:19:05 -0500 (EST)

branch: externals/valign
commit 056138e2a641ba17bd8f69c6ba58f8f153f95e80
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    * valign.el (valign--cell-alignment): Fix unused variable.
---
 valign.el | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/valign.el b/valign.el
index 2f1b7d3..6db408c 100644
--- a/valign.el
+++ b/valign.el
@@ -32,15 +32,14 @@ Return 'left if aligned left, 'right if aligned right.
 Assumes point is after the left bar (“|”).
 Doesn’t check if we are in a cell."
   (save-excursion
-    (let ((p (point)))
-      (if (looking-at " [^ ]")
-          'left
-        (if (not (search-forward "|" nil t))
-            (signal 'valign-bad-cell nil)
-          (if (looking-back
-               "[^ ] |" (max (- (point) 3) (point-min)))
-              'right
-            (signal 'valign-werid-alignment nil)))))))
+    (if (looking-at " [^ ]")
+        'left
+      (if (not (search-forward "|" nil t))
+          (signal 'valign-bad-cell nil)
+        (if (looking-back
+             "[^ ] |" (max (- (point) 3) (point-min)))
+            'right
+          (signal 'valign-werid-alignment nil))))))
 
 ;; (if (string-match (rx (seq (* " ")
 ;;                            ;; e.g., “5.”, “5.4”



reply via email to

[Prev in Thread] Current Thread [Next in Thread]