Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

changed `looking-at-p` calls to `looking-at`

  • Loading branch information...
commit 055bb650e738b372ac8bdb50644ac9892e778ae9 1 parent 0714808
@agrif authored
Showing with 5 additions and 5 deletions.
  1. +4 −4 proto-sourcepawn-mode.el
  2. +1 −1  tools/scan.el
View
8 proto-sourcepawn-mode.el
@@ -122,7 +122,7 @@
(save-excursion
(beginning-of-line)
;; can't be a special block if we start with a brace!
- (if (or (bobp) (looking-at-p "[ \t]*{"))
+ (if (or (bobp) (looking-at "[ \t]*{"))
nil
(forward-line -1)
(beginning-of-line)
@@ -169,15 +169,15 @@
;; count how many "}" there are on the line we will indent
;; DECREMENT because we want these to act like the end of the last line
(save-excursion
- (while (and (looking-at-p "[ \t]*}") (re-search-forward "[ \t]*}" (line-end-position) t))
+ (while (and (looking-at "[ \t]*}") (re-search-forward "[ \t]*}" (line-end-position) t))
(setq endbrace-count (- endbrace-count 1)))
;; first find last non-blank line, non-special line
(forward-line -1)
- (while (and (not (bobp)) (or (looking-at-p "[ \t]*$") (sourcepawn-mode-single-line-block-p)))
+ (while (and (not (bobp)) (or (looking-at "[ \t]*$") (sourcepawn-mode-single-line-block-p)))
(forward-line -1))
;; count how many "}" there are at the beginning of the line (which is currently the last line)
;; INCREMENT because these are working against what parse-partial-sexp finds
- (while (and (looking-at-p "[ \t]*}") (re-search-forward "[ \t]*}" (line-end-position) t))
+ (while (and (looking-at "[ \t]*}") (re-search-forward "[ \t]*}" (line-end-position) t))
(setq endbrace-count (+ endbrace-count 1)))
;; add in the indentation for this S-EXP level
(+ (current-indentation)
View
2  tools/scan.el
@@ -48,7 +48,7 @@
(if (null secondary)
nil
;; we have a list rule as well
- (while (and (looking-at-p secondary) (re-search-forward secondary limit t))
+ (while (and (looking-at secondary) (re-search-forward secondary limit t))
(let ((submatch (match-string 1)))
(if (or (null submatch) (string-in-list submatch ret))
nil
Please sign in to comment.
Something went wrong with that request. Please try again.