phillord pushed a commit to branch externals/pabbrev
in repository elpa.
commit 99fff4feeb28ae0e1c0c54aafe466b5ac18a1c75
Author: Phillip Lord <[email protected]>
Date: Thu Oct 25 11:59:52 2012 +0100
Minor code tweaks.
---
omn-mode.el | 20 ++++++++++++--------
1 files changed, 12 insertions(+), 8 deletions(-)
diff --git a/omn-mode.el b/omn-mode.el
index 7ed9a3e..0bcba12 100644
--- a/omn-mode.el
+++ b/omn-mode.el
@@ -56,13 +56,17 @@ See `imenu-generic-expression' for details")
(save-match-data
;; check the first word
- (let ((match (re-search-forward "\\w+" (line-end-position) t)))
+ (let* ((match (re-search-forward "\\w+" (line-end-position) t))
+ (word (if match
+ (match-string 0)
+ "")))
+
(cond
- ((not match)
- (progn
- (if (not (forward-line -1))
- (omn-determine-line-indent)
- 0)))
+ ;; ((not match)
+ ;; (progn
+ ;; (if (not (forward-line -1))
+ ;; (omn-determine-line-indent)
+ ;; 0)))
;; if it is string, ident should be 0.
((nth 3 (syntax-ppss (point)))
@@ -81,10 +85,10 @@ See `imenu-generic-expression' for details")
(t 0)))
;; if it is one of Class:, Prefix: or so on, then indent should be 0
- ((member (match-string 0) omn-mode-entity-keywords)
+ ((member word omn-mode-entity-keywords)
0)
;; if it is Annotations:, SubClassOf: or so on, then indent should be
4
- ((member (match-string 0) omn-mode-property-keywords)
+ ((member word omn-mode-property-keywords)
4)
;; if it is something else, then 8
