Editorial

;;sto e' para habilitar o dicionario em portugues brasileiro
;;Isto e' para habilitar o dicionario em portugues brasileiro
;; ("castellano" "[A-ZÁÉÍÑÓÚÜa-záéíñóúü]" "[^A-ZÁÉÍÑÓÚÜa-záéíñóúü]" "[---]" nil
;;  ("-B" "-d" "castellano")
;;  "~tex" iso-8859-1)

(setq ispell-dictionary-alist
      (cons '("br" "[A-ZÁÉÍÑÓÚÜa-záéíñóúü]" "[^A-ZÁÉÍÑÓÚÜa-záéíñóúü]" "[---]" nil
  ("-B" "-d" "br")
  "~tex" iso-8859-1)
 ispell-dictionary-alist))

;;(setq ispell-dictionary-alist
;;     (cons '("br"                      ;; Brazilian mode                 
;;      "[A-Za-z\300\301\302\303\307\311\312\315\323\324\325\332\334\340\341\342\343\347\351\352\355\364\365\372\374]"
;;      "[Â-Za-z\300\301\302\303\307\311\312\315\323\324\325\332\334\340\341\342\343\347\351\352\355\364\365\372\374]"
;;            "[---]" nil ("-B" "-d" "br") "~tex"  iso-8859-1)
;;          ispell-dictionary-alist))
;;Agora tornando o dicionario brasileiro como o default
(setq ispell-dictionary "br")
(standard-display-european t)
                                        ;(require 'iso-syntax)
(require 'iso-acc)
;;(require 'iso-cvt)
;;(require 'paren)
(show-paren-mode nil)
(transient-mark-mode t)
(global-set-key (quote [end]) (quote end-of-line))
(global-set-key (quote [home]) (quote beginning-of-line))
(global-set-key (quote [delete]) (quote delete-char))
;; (global-set-key (quote [delete]) (quote delete-backward-char))
(global-set-key (quote [S-kp-0]) (quote yank))
(global-set-key (quote [C-kp-insert]) (quote kill-ring-save))
(global-set-key (quote [C-kp-delete]) (quote kill-line))
;;(global-set-key "" (quote nonincremental-repeat-search-forward))
(global-set-key "\C-z" (quote undo))
;;(global-set-key "\C-v" (quote nonincremental-repeat-search-forward)) basta usar C-s C-s

;;(global-set-key "" (quote bookmark-bmenu-list))
(global-set-key "\C-q" (quote other-window))
(global-set-key (quote [C-kp-home]) (quote beginning-of-buffer))
(global-set-key (quote [C-kp-end]) (quote end-of-buffer))
(global-set-key "\C-l" (quote goto-line))
;(global-set-key (quote [C-tab]) (quote pega))
(global-set-key (quote [f9]) (quote pega))
(global-set-key "\C-c\C-k" (quote kill-this-buffer))


(setq lpr-switches '("-Plp0")) ;; comando para o lpr
;;(setq load-path (cons "~/ftp/html-helper-mode/" load-path))
;;(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
;;(setq auto-mode-alist (cons '("\.html$" . html-helper-mode) auto-mode-alist))
;;(setq html-helper-build-new-buffer t)
;;(setq html-helper-address-string "Jorge Kinoshita ")

;; para latex:
;; http://www.informatik.tu-cottbus.de/~mohaupt/manual/emacs_doc/OUTLINE_FORMAT.html
;; (setq outline-regexp "@chap\\|@\\(sub\\)*section") 
;; para perl
;; (setq outline-regexp "sub"))
;; (add-hook outline-mode-hook 
;;        '(lambda ()
;;           (if (equal major-mode "perl-mode")
;;           (setq outline-regexp "sub"))
;;           (if (equal major-mode "latex-mode")
;;               (setq outline-regexp "@chap\\|@\\(sub\\)*section") )))

;; (setq tex-mode-hook 
;;        '(lambda ()
;;           (setq outline-regexp "@chap\\|@\\(sub\\)*section")
;;           ))

;; (global-set-key [mouse-2] 'split-window-vertically)

(setq outline-regexp "^\\\\chap\\|\\\\\\(sub\\)*section\\|\\*+\\|^sub")

(setq latex-mode-hook 
          '(lambda ()
             (standard-display-european 1)  
             (add-hook 'text-mode-hook 'iso-accents-mode)  
             (iso-accents-mode nil)
             (iso-accents-customize "portuguese")
             (outline-minor-mode nil)
             ))


;;(setq t-mode-hook 
;;        '(lambda ()
;;           (standard-display-european 1)  
;;           (add-hook 'text-mode-hook 'iso-accents-mode)  
;;           (iso-accents-mode nil)
;;           (iso-accents-customize "portuguese")
;;           ))

(setq perl-mode-hook 
          '(lambda ()
             (iso-accents-mode nil)
             (iso-accents-customize "portuguese")
             ;(refill-mode nil)
             ;;(font-lock-fontify-buffer)
             ;; (outline-minor-mode nil) 
             ))


(setq text-mode-hook 
          '(lambda ()
             (standard-display-european 1)  
             ;(add-hook 'text-mode-hook 'iso-accents-mode)  
             (iso-accents-mode t)
             ;(flyspell-mode t)
             (iso-accents-customize "portuguese")
                                        ; (add-hook 'text-mode-hook 'flyspell-mode)
             ;(refill-mode nil)
             ;(outline-minor-mode nil)
              ))

;;(setq html-mode-hook 
;;        '(lambda ()
;;           (load "t")
;;            ))


(bookmark-bmenu-list)
;; (calendar)
;; (mark-diary-entries)
;; (view-diary-entries (calendar-goto-today))



;; (setq load-path (append load-path (list "~j/bitext")))
;;(html-helper-mode)
;;(add-hook html-helper-mode-hook '(lambda () 
;;                          (load "t")
;;)) ;; dah erro no .emacs
;;--- 1. carga de t.elc

(custom-set-variables)
(custom-set-faces
 '(font-lock-comment-face ((((class color) (background dark)) (:foreground "pink")))))


(setenv "MAILHOST" "carcara.pcs.usp.br")
(setq rmail-primary-inbox-list '("po:jkinoshi") rmail-pop-password-required t)



;; Send Mail to smtp host from smtpmail temp buffer.

;; Please add these lines in your .emacs(_emacs) or use customize.
;;
;;(setq send-mail-function 'smtpmail-send-it) ; if you use `mail'
;;(setq message-send-mail-function 'smtpmail-send-it) ; if you use `message'
;;(setq smtpmail-default-smtp-server "carcara")
;;(setq smtpmail-local-domain "pcs.usp.br")
;;(setq smtpmail-debug-info t) ; only to debug problems
;; To queue mail, set smtpmail-queue-mail to t and use 
;; smtpmail-send-queued-mail to send.

;;

;(load-library "/usr/share/emacs/20.4/lisp/ispell.elc")
;(load-library "/usr/share/emacs/20.4/lisp/mail/smtpmail.el")
;(setq smtpmail-code-conv-from nil)

Perguntas & Respostas