[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master a0fbb58 06/40: align: Fix off-by-one in positioning argume
From: |
Daiki Ueno |
Subject: |
[elpa] master a0fbb58 06/40: align: Fix off-by-one in positioning argument |
Date: |
Fri, 22 Jan 2016 22:48:35 +0000 |
branch: master
commit a0fbb5816818d768953529441a386d903aff10da
Author: Daiki Ueno <address@hidden>
Commit: Daiki Ueno <address@hidden>
align: Fix off-by-one in positioning argument
---
gobject-align.el | 25 +++++++++++++------------
1 files changed, 13 insertions(+), 12 deletions(-)
diff --git a/gobject-align.el b/gobject-align.el
index e3df633..b5bd28b 100644
--- a/gobject-align.el
+++ b/gobject-align.el
@@ -294,13 +294,17 @@
(1+ arglist-start)
(1- arglist-end)))))))))
-(defun gobject-align--normalize-decl (beg end)
+(defun gobject-align--normalize-decl (decl)
(save-excursion
(save-restriction
- (narrow-to-region beg end)
+ (narrow-to-region (gobject-align--decl-identifier-start decl)
+ (gobject-align--decl-arglist-end decl))
(goto-char (point-min))
- (while (re-search-forward "\n" (1- (point-max)) t)
- (replace-match " "))
+ (while (re-search-forward "\n" nil t)
+ (replace-match " ")))
+ (save-restriction
+ (narrow-to-region (gobject-align--decl-start decl)
+ (gobject-align--decl-end decl))
(goto-char (point-min))
(while (re-search-forward "\\s-+" nil t)
(replace-match " ")))))
@@ -358,9 +362,7 @@
(insert-buffer-substring-no-properties buffer beg end)
(c-mode)
(setq decls (gobject-align--scan-decls (point-min) (point-max)))
- (dolist (decl decls)
- (gobject-align--normalize-decl (gobject-align--decl-start decl)
- (gobject-align--decl-end decl)))
+ (mapc #'gobject-align--normalize-decl decls)
(let* ((identifier-start-column
(gobject-align--decls-identifier-start-column
decls 0))
@@ -369,7 +371,7 @@
decls identifier-start-column))
(arglist-identifier-start-column
(gobject-align--decls-arglist-identifier-start-column
- decls arglist-start-column)))
+ decls (+ (length "(") arglist-start-column))))
(message
"identifier-start: %d, arglist-start: %d, arglist-identifier-start: %d"
identifier-start-column
@@ -416,9 +418,7 @@
(setq gobject-align-arglist-identifier-start-column
(cdr (assq 'arglist-identifier-start-column columns))))))
(setq decls (gobject-align--scan-decls beg end))
- (dolist (decl decls)
- (gobject-align--normalize-decl (gobject-align--decl-start decl)
- (gobject-align--decl-end decl)))
+ (mapc #'gobject-align--normalize-decl decls)
(dolist (decl decls)
(goto-char (gobject-align--decl-identifier-start decl))
(gobject-align--indent-to-column
@@ -432,7 +432,8 @@
(forward-char)
(gobject-align-at-point
(- gobject-align-arglist-identifier-start-column
- gobject-align-arglist-start-column)))))))
+ gobject-align-arglist-start-column
+ (length "("))))))))
(provide 'gobject-align)
- [elpa] master updated (7e40fdf -> eaa2c7a), Daiki Ueno, 2016/01/22
- [elpa] master f0f8217 02/40: Use table in README.md, Daiki Ueno, 2016/01/22
- [elpa] master 180cd98 04/40: align: Ignore some G_* symbols, Daiki Ueno, 2016/01/22
- [elpa] master 6c5bda5 05/40: align: Fix off-by-one when adding newline, Daiki Ueno, 2016/01/22
- [elpa] master a0fbb58 06/40: align: Fix off-by-one in positioning argument,
Daiki Ueno <=
- [elpa] master 0d84312 08/40: Fix wording in README.md, Daiki Ueno, 2016/01/22
- [elpa] master 6a12630 07/40: Add examples to README.md, Daiki Ueno, 2016/01/22
- [elpa] master 8579586 10/40: align: Minor refactoring, Daiki Ueno, 2016/01/22
- [elpa] master ea42394 09/40: Fix wording in README.md, Daiki Ueno, 2016/01/22
- [elpa] master dcb6a2e 03/40: align: Support guessing/setting alignment rules, Daiki Ueno, 2016/01/22
- [elpa] master 2f5707d 11/40: align: Fix previous commit, Daiki Ueno, 2016/01/22
- [elpa] master 870e78c 12/40: Add ERT tests, Daiki Ueno, 2016/01/22
- [elpa] master 7285abe 15/40: Reorder commands in README.md, Daiki Ueno, 2016/01/22
- [elpa] master 1ad58dc 01/40: Initial import, Daiki Ueno, 2016/01/22
- [elpa] master b4d4672 14/40: align: Support vfuncs, Daiki Ueno, 2016/01/22