Mercurial > emacs
changeset 74289:536e4b30fcab
(fortran-font-lock-keywords-4): Add `min'.
(fortran-window-create-momentarily): Do not need string-to-char.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 28 Nov 2006 03:45:39 +0000 |
| parents | 12e8cedf59f1 |
| children | dfdd8a9755b0 |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Tue Nov 28 03:44:39 2006 +0000 +++ b/lisp/progmodes/fortran.el Tue Nov 28 03:45:39 2006 +0000 @@ -385,8 +385,8 @@ "dabs" "cabs" "mod" "amod" "dmod" "isign" "sign" "dsign" "idim" "dim" "ddim" "dprod" "max" "max0" "amax1" "dmax1" "amax0" "max1" - "min0" "amin1" "dmin1" "amin0" "min1" "len" - "index" "lge" "lgt" "lle" "llt" "aimag" + "min" "min0" "amin1" "dmin1" "amin0" "min1" + "len" "index" "lge" "lgt" "lle" "llt" "aimag" "conjg" "sqrt" "dsqrt" "csqrt" "exp" "dexp" "cexp" "log" "alog" "dlog" "clog" "log10" "alog10" "dlog10" "sin" "dsin" "csin" "cos" @@ -968,7 +968,7 @@ (error (error "No room for Fortran window"))) (message "Type SPC to continue editing.") (let ((char (read-event))) - (or (equal char (string-to-char " ")) + (or (equal char ?\s) (setq unread-command-events (list char)))))) (fortran-window-create)))