Mercurial Mercurial > dot-emacs / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
.emacs-my
changeset 840 e1f0a7f252c8
parent 838 2edffa38b012
parent 839 27fac2557f13
child 841 68e40729a4f4
equal deleted inserted replaced
838:2edffa38b012 840:e1f0a7f252c8 
   678 ;; (set-keyboard-coding-system 'cp1251)
 
   678 ;; (set-keyboard-coding-system 'cp1251)
 
   679 
   679 
   680 (modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit)
 
   680 (modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit)
 
   681 (cond
 
   681 (cond
 
   682  ((equal window-system 'w32)          ; also (string-equal system-type "windows-nt")
 
   682  ((equal window-system 'w32)          ; also (string-equal system-type "windows-nt")
 
   683   (set-selection-coding-system 'utf-16-le-dos)
 
   683   ;; (set-selection-coding-system 'utf-16-le-dos)
 
   684   (setq-default buffer-file-coding-system 'cp1251)
 
   684   (setq-default buffer-file-coding-system 'cp1251)
 
   685   (setq default-file-name-coding-system 'cp1251)
 
   685   (setq default-file-name-coding-system 'cp1251)
 
   686   (setq default-process-coding-system '(cp1251 . cp1251))
 
   686   (setq default-process-coding-system '(cp1251 . cp1251))
 
   687   )
 
   687   )
 
   688  ((equal window-system 'x)
 
   688  ((equal window-system 'x)
dot-emacs