Changed the region color in console to white.

[elisp.git] / emacs.el
diff --git a/emacs.el b/emacs.el

index a9f982f..0301d03 100644 (file)
--- a/emacs.el
+++ b/emacs.el
@@ -209,7 +209,8 @@ load-warning buffer in case of failure."
   ;; And I like ascii files
   epa-armor t
  
- tramp-default-method "ssh"
+ ;; tramp-default-method "ssh"
+ tramp-default-method "scp"
  
   ;; I have no problem with files having their own local variables
   enable-local-eval t
@@ -384,6 +385,8 @@ load-warning buffer in case of failure."
    (ff/configure-faces
     '((italic :underline nil)
       (info-title-2 :foreground "green")
+     (font-lock-comment-delimiter-face :foreground "black")
+     (font-lock-comment-face :foreground "black")
       (cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)
       (cperl-hash-face :background "gray90" :foreground "purple" :weight 'bold)
       (diff-added :background "gray90" :foreground "green4" :weight 'bold)
@@ -421,7 +424,7 @@ load-warning buffer in case of failure."
                    :inverse-video nil)
       (mode-line-inactive :background "gray60" :foreground "black" :box nil
                           :inverse-video nil)
-     (region :background "springgreen2")
+     (region :background "white")
       (ff/date-info-face :foreground "white" :weight 'bold)
       (ff/mail-alarm-face :foreground "red" :weight 'bold)
       (gui-button-face :background "green" :foreground "white")
@@ -800,7 +803,7 @@ printer."
           (if (> temp 50)
               (concat
                (let ((s (format "%dC " temp)))
-                (if (> temp 65) (propertize s 'face
+                (if (> temp 70) (propertize s 'face
                                              'font-lock-warning-face)
                    s))
                )
@@ -1639,6 +1642,11 @@ int main(int argc, char **argv) {
  <head>
  <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />
  <title></title>
+<style>
+p {
+ color:#009900;
+}
+</style>
  </head>
  
  <body>
@@ -1965,10 +1973,12 @@ a file in /tmp"
  (defun ff/start-flyspell () (interactive)
    (ff/configure-faces
     '(
-     (flyspell-incorrect :background "#ff0000" :foreground "black")
-     (flyspell-duplicate :background "#ff9000" :foreground "black")
+     ;; (flyspell-incorrect :background "#ff0000" :foreground "black")
+     ;; (flyspell-duplicate :background "#ff9000" :foreground "black")
+     (flyspell-incorrect :foreground "#ff0000" :weight 'bold)
+     (flyspell-duplicate :foreground "#ff9000" :weight 'bold)
       ))
-  (flyspell-buffer)
+  ;; (flyspell-buffer)
    )
  
  (add-hook 'flyspell-mode-hook 'ff/start-flyspell)
@@ -2309,7 +2319,7 @@ next one. With universal argument, kill all killable buffers."
                               ;; "-stop-xscreensaver"
                               ;; "-osdlevel" "3"
                               )
-        media/mplayer/timing-request-period 5.0
+        media/mplayer/timing-request-period 1.0
          )
    )
  
@@ -2491,7 +2501,9 @@ with a time tag, and save this file"
  (define-key global-map [(control \`)] ff/map)
  
  (unless window-system
-  (define-key global-map [(control @)] ff/map))
+  ;; (define-key global-map [(control @)] ff/map)
+  (define-key global-map [(meta O) \`] ff/map)
+)
  
  (define-key esc-map "`" ff/map)