Mercurial > emacs
comparison lisp/progmodes/fortran.el @ 110270:c7809974cd64
Misc cleanups and simplifications.
* lisp/font-lock.el (save-buffer-state): Remove `varlist' arg.
(font-lock-unfontify-region, font-lock-default-fontify-region):
Update usage correspondingly.
(font-lock-fontify-syntactic-keywords-region):
Set parse-sexp-lookup-properties buffer-locally here.
(font-lock-fontify-syntactically-region): Remove unused `ppss' arg.
* lisp/progmodes/ada-mode.el: Replace "(set '" with setq.
(ada-mode): Simplify.
(ada-create-case-exception, ada-adjust-case-interactive)
(ada-adjust-case-region, ada-format-paramlist, ada-indent-current)
(ada-search-ignore-string-comment, ada-move-to-start)
(ada-move-to-end): Use with-syntax-table.
* lisp/progmodes/fortran.el (fortran-line-length): Don't recompute
syntactic keywords redundantly a second time.
* lisp/progmodes/js.el (require): Require is already "eval-and-compile".
(js--re-search-forward): Avoid `eval'. Preserve the error data.
(js--re-search-backward): Use js--re-search-forward.
* lisp/progmodes/octave-mod.el (electric-indent-chars): Silence bytecomp.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 08 Sep 2010 18:21:23 +0200 |
| parents | fc613fd476ff |
| children | b10051866f51 |
comparison
equal
deleted
inserted
replaced
| 110269:39d3e1ba1931 | 110270:c7809974cd64 |
|---|---|
| 918 (setq fortran-line-length nchars | 918 (setq fortran-line-length nchars |
| 919 fill-column fortran-line-length | 919 fill-column fortran-line-length |
| 920 new (fortran-font-lock-syntactic-keywords)) | 920 new (fortran-font-lock-syntactic-keywords)) |
| 921 ;; Refontify only if necessary. | 921 ;; Refontify only if necessary. |
| 922 (unless (equal new font-lock-syntactic-keywords) | 922 (unless (equal new font-lock-syntactic-keywords) |
| 923 (setq font-lock-syntactic-keywords | 923 (setq font-lock-syntactic-keywords new) |
| 924 (fortran-font-lock-syntactic-keywords)) | |
| 925 (if font-lock-mode (font-lock-mode 1)))))) | 924 (if font-lock-mode (font-lock-mode 1)))))) |
| 926 (if global | 925 (if global |
| 927 (buffer-list) | 926 (buffer-list) |
| 928 (list (current-buffer)))) | 927 (list (current-buffer)))) |
| 929 (if global | 928 (if global |