1833 |
;; Don't keep looking across a blank line or comment. |
;; Don't keep looking across a blank line or comment. |
1834 |
(looking-at "$\\|#") |
(looking-at "$\\|#") |
1835 |
(not (zerop (forward-line -1)))))) |
(not (zerop (forward-line -1)))))) |
1836 |
|
;; Remove leading and trailing whitespace. |
1837 |
|
(when found |
1838 |
|
(setq found (replace-regexp-in-string "[ \t]+\\'" "" found)) |
1839 |
|
(setq found (replace-regexp-in-string "\\`[ \t]+" "" found))) |
1840 |
found))) |
found))) |
1841 |
|
|
1842 |
(provide 'make-mode) |
(provide 'make-mode) |