.emacs-my
changeset 1731 fec5d1fffe8c
parent 1730 795b3f2ecfbb
child 1732 c3279bad1cc3
equal deleted inserted replaced
1730:795b3f2ecfbb 1731:fec5d1fffe8c
   549 
   549 
   550 (setq explicit-bash-args '("-i"))
   550 (setq explicit-bash-args '("-i"))
   551 
   551 
   552 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   552 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   553 (message "Cygwin, MSYS")
   553 (message "Cygwin, MSYS")
       
   554 
       
   555 (when (and (eq system-type 'cygwin) (fboundp #'cygwin-winpath-activate))
       
   556   (cygwin-winpath-activate))
   554 
   557 
   555 (defun follow-cygwin-symlink ()
   558 (defun follow-cygwin-symlink ()
   556   "Follow new-style (and also UCS-16) Cygwin symlinks."
   559   "Follow new-style (and also UCS-16) Cygwin symlinks."
   557   (save-excursion
   560   (save-excursion
   558     (goto-char 0)
   561     (goto-char 0)