James <[email protected]> writes:
> I downloaded the three .el files for Forth and Ruby. How would I then update
> my .emacs.
>
> I copied them to /etc/emacs/site-start.d/ but emacs didn't load them.
/etc/emacs/site-start.d/ is in your load-path, isn't it? If you don't
use forth or ruby code, you shouldn't do anything in your ~/.emacs (I
think).
I copied the *.el files to ${prefix}/share/emacs/site-lisp which is
automatically in load-path and have the following in ~/.emacs:
(autoload 'ruby-mode "ruby-mode" "Mode for editing ruby source files" t)
(autoload 'run-ruby "inf-ruby" "Run an inferior Ruby process" t)
(autoload 'inf-ruby-keys "inf-ruby" "Local key defs for inf-ruby in ruby-mode"
t)
(autoload 'forth-mode "gforth" "Major mode Forth." t)
(autoload 'forth-block-mode "gforth" "Major mode Forth." t)
(autoload 'inferior-forth-mode "gforth" "Major mode Forth." t)
(setq forth-jit-parser nil) ;too slow
(setq forth-use-objects nil)
(setq forth-use-oof nil)
(setq forth-hilight-level 3)
(setq forth-indent-level 2)
(setq forth-minor-indent-level 1)
(setq forth-custom-words
'((("instrument:" "event:") definition-starter (font-lock-keyword-face .
1)
"[ \t\n]" t name (font-lock-function-name-face . 3))
(("lambda:" "let:") definition-starter (font-lock-keyword-face . 1))
((";instrument" ";event" ";let" ";proc") definition-ender
(font-lock-keyword-face . 1))
((".\\\"") compile-only (font-lock-string-face . 1)
"[^\\][\"\n]" nil string (font-lock-string-face . 1))
(("unless" "?dup-not-if" "?dup-unless" "run" "run-instrument" "end-run"
"each" "end-each" "map" "map!" "end-map") compile-only
(font-lock-keyword-face . 2))
(("array(" "#(" "assoc(" "#a(" "hash{" "#{" "list(" "'(" "alist(" "'a("
"gdbm{" "}" "vct(" ")" "make-?obj")
non-immediate (font-lock-keyword-face . 2))
(("[defined]" "[undefined]" "defined?") immediate
(font-lock-keyword-face . 2)
"[ \t\n]" t name (font-lock-function-name-face . 3))
(("create-hook" "create-symbol" "create-keyword" "create-exception")
non-immediate (font-lock-type-face . 2)
"[ \t\n]" t name (font-lock-variable-name-face . 3))
(("[unless]" "[i]" "[each]" "[map]" "[end-each]" "[end-map]")
immediate (font-lock-keyword-face . 2))
(("+to") immediate (font-lock-keyword-face . 2)
"[ \t\n]" t name (font-lock-variable-name-face . 3))
(("nil" "undef" "#t" "#f" "two-pi" "half-pi" "float" "double" "a/o"
"r/a")
non-immediate (font-lock-constant-face . 1))
("[-0-9.+]+[-/+]?[-0-9.+]+i?" non-immediate (font-lock-constant-face .
1))
(("<'>" "<'set>") immediate (font-lock-keyword-face . 2)
"[ \t\n]" t name (font-lock-function-name-face . 3))
(("<char>") immediate (font-lock-keyword-face . 1)
"[ \t\n]" t string (font-lock-string-face . 1))
("[<{]{" non-immediate (font-lock-variable-name-face . 1)
"}[>}]" nil string (font-lock-variable-name-face . 1))
(("}>" "}") compile-only (font-lock-variable-name-face . 1 ))
(":\\sw+" non-immediate (font-lock-builtin-face . 1)) ;keywords
("'[^( ]\\sw+" non-immediate (font-lock-constant-face . 1)) ;symbols
("\*[^ ]+.+\*" immediate (font-lock-variable-name-face . 1)) ;global
variables
("\".*[^\\]\"" immediate (font-lock-string-face . 1)) ;string "" (w/o
space)
("\/.*[^\\]\/" immediate (font-lock-string-face . 1)) ;regexp // (w/o
space)
(("s\\\"" "c\\\"" "$\"" "doc\"") immediate (font-lock-string-face . 1)
"[^\\]\"" nil string (font-lock-string-face . 1))
(("re\/") immediate (font-lock-string-face . 1)
"[^\\]\/" nil string (font-lock-string-face . 1))
(("defines") non-immediate (font-lock-type-face . 2)
"[ \t\n]" t name (font-lock-function-name-face . 3))
(("dl-load") non-immediate (font-lock-keyword-face . 1)
"[\n\t ]" t string (font-lock-string-face . 1)
"[\n\t ]" t string (font-lock-string-face . 1))
(("lambda-create" "proc-create") non-immediate (font-lock-type-face .
2) nil)))
(setq forth-custom-indent-words
'((("instrument:" "event:" "lambda:" "let:"
"unless" "?dup-not-if" "?dup-unless" "[unless]" "run" "run-instrument"
"each" "map" "map!" "map" "[each]" "[map]") (0 . 2) (0 . 2))
(("end-run" "end-map" "end-each" "[end-each]" "[end-map]"
";instrument" ";event" ";let" ";proc") (-2 . 0) (0 . -2))
(("<{") (0 . 3) (0 . 3))
(("}>") (-3 . 0) (0 . -3))
(("array(" "#(" "assoc(" "#a(" "hash{" "#{" "list(" "'(" "alist(" "'a("
"gdbm{" "vct(" "<{") (0 . 3) (0 . 3))
((")" "}") (-3 . 0) (0 . -3))
(("does>") (-1 . 1) (0 . 0))))
Mike
_______________________________________________
Cmdist mailing list
[email protected]
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
