equal
deleted
inserted
replaced
364 (add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode)) |
364 (add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode)) |
365 |
365 |
366 ;; ---------------------------------------------------------------------- |
366 ;; ---------------------------------------------------------------------- |
367 ;; browser |
367 ;; browser |
368 |
368 |
369 (setq browse-url-browser-function (quote browse-url-mozilla)) |
369 (cond |
|
370 ((equal window-system 'w32) |
|
371 (setq browse-url-browser-function 'browse-url-default-windows-browser)) |
|
372 (t |
|
373 (setq browse-url-browser-function 'browse-url-mozilla))) |
370 |
374 |
371 ;; ====================================================================== |
375 ;; ====================================================================== |
372 ;; TIME SETTING |
376 ;; TIME SETTING |
373 |
377 |
374 ;; ---------------------------------------------------------------------- |
378 ;; ---------------------------------------------------------------------- |
559 ;; Info |
563 ;; Info |
560 |
564 |
561 (require 'info) |
565 (require 'info) |
562 (if (equal window-system 'w32) |
566 (if (equal window-system 'w32) |
563 (progn |
567 (progn |
564 (setq Info-directory-list (list (expand-file-name "~/../bin/emacs/info"))) |
568 ;; TODO Write which func to find runemacs.exe dir. |
565 (add-to-list 'Info-directory-list (expand-file-name "~/../bin/MinGW/info") t) ; t - append to the end |
569 ;; (setq Info-directory-list (list (expand-file-name "~/../bin/emacs/info"))) |
|
570 ;; (add-to-list 'Info-directory-list (expand-file-name "~/../bin/MinGW/info") t) ; t - append to the end |
566 )) |
571 )) |
567 |
572 |
568 ;; ====================================================================== |
573 ;; ====================================================================== |
569 ;; |
574 ;; |
570 ;; SHELL |
575 ;; SHELL |
712 jabber-backlog-days 30 |
717 jabber-backlog-days 30 |
713 jabber-alert-presence-message-function (lambda (who oldstatus newstatus statustext) nil) |
718 jabber-alert-presence-message-function (lambda (who oldstatus newstatus statustext) nil) |
714 ) |
719 ) |
715 ) |
720 ) |
716 |
721 |
|
722 |
|
723 ;; ---------------------------------------------------------------------- |
|
724 ;; rcirc |
|
725 |
|
726 ;; Turn on logging everything to a special buffer, for debugging. |
|
727 ;; (setq rcirc-debug-flag t) |
|
728 |
|
729 (add-hook 'rcirc-mode-hook (lambda () (rcirc-track-minor-mode 1))) |
|
730 (setq rcirc-time-format "%H:%M ") |
|
731 (defun rcirc-handler-301 (process cmd sender args) |
|
732 "/away message handler.") |
717 |
733 |
718 ;; ====================================================================== |
734 ;; ====================================================================== |
719 ;; VCS, version control, cvs, svn. |
735 ;; VCS, version control, cvs, svn. |
720 |
736 |
721 (if (equal window-system 'w32) |
737 (if (equal window-system 'w32) |