X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;f=emacs.el;h=9e94de675df20954b1344ed71e8f607f8075fdf5;hb=4aa8fe5068e2fb109a007f7e1acf8445ec9fba24;hp=a9f982fa29da940f460af07e8f3bb559ed2f5b52;hpb=ad1b7c7b0216af322622612b7e0d001deb71a893;p=elisp.git diff --git a/emacs.el b/emacs.el index a9f982f..9e94de6 100644 --- 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) @@ -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) { + @@ -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)