From 2280c733f8be5484d46eb613db097b3c4d0b5f99 Mon Sep 17 00:00:00 2001 From: Alp Aker Date: Sat, 4 Feb 2012 20:17:27 -0500 Subject: [PATCH] Whitespace clean up. --- fill-column-indicator.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/fill-column-indicator.el b/fill-column-indicator.el index 10f0c5b..e60d6c2 100644 --- a/fill-column-indicator.el +++ b/fill-column-indicator.el @@ -588,10 +588,10 @@ on troubleshooting.)" (defun fci-make-pbm-img () "Return an image descriptor for the fill-column rule in PBM format." - (fci-with-rule-parameters + (fci-with-rule-parameters (let* ((identifier "P1\n") (dimens (concat width-str " " height-str "\n")) - (on-pixels (fci-mapconcat " " + (on-pixels (fci-mapconcat " " (make-list left-margin "0") (make-list rule-width "1") (make-list right-margin "0"))) @@ -609,11 +609,11 @@ on troubleshooting.)" (defun fci-make-xpm-img () "Return an image descriptor for the fill-column rule in XPM format." - (fci-with-rule-parameters + (fci-with-rule-parameters (let* ((identifier "/* XPM */\nstatic char *rule[] = {") (dimens (concat "\"" width-str " " height-str " 2 1\",")) (color-spec (concat "\"1 c " fci-rule-color "\",\n\"0 c None\",")) - (on-pixels (concat "\"" + (on-pixels (concat "\"" (make-string left-margin ?0) (make-string rule-width ?1) (make-string right-margin ?0) @@ -736,7 +736,7 @@ on troubleshooting.)" (fci-delete-overlays-region (point-min) (point-max)))) (defsubst fci-posn-visible (posn ranges) - (memq t (mapcar #'(lambda (range) (and (<= (car range) posn) + (memq t (mapcar #'(lambda (range) (and (<= (car range) posn) (< posn (cdr range)))) ranges)))