(select-window window)))))
(defvar mdw-good-url-browsers
- '(browse-url-generic
+ '(browse-url-mozilla
+ browse-url-generic
(w3m . mdw-w3m-browse-url)
- browse-url-w3
- browse-url-mozilla)
+ browse-url-w3)
"List of good browsers for mdw-good-url-browsers.
Each item is a browser function name, or a cons (CHECK . FUNC).
A symbol FOO stands for (FOO . FOO).")
(((type tty) (class color)) :background "blue")
(((type tty) (class mono)) :inverse-video t)
(t :background "grey30"))
+(mdw-define-face mc/cursor-face
+ (((type tty) (class mono)) :inverse-video t)
+ (t :background "red"))
(mdw-define-face minibuffer-prompt
(t :weight bold))
(mdw-define-face mode-line
(defun mdw-fontify-scala ()
+ ;; Comment filling.
+ (setq mdw-fill-prefix mdw-c-comment-fill-prefix)
+
;; Define things to be fontified.
(make-local-variable 'font-lock-keywords)
(let ((scala-keywords
"var" "while" "with" "yield"))
(scala-constants
(mdw-regexps "false" "null" "super" "this" "true"))
- (punctuation "\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/"))
+ (punctuation "[-!%^&*=+:@#~/?\\|`]"))
(setq font-lock-keywords
(list