equal
deleted
inserted
replaced
194 (,func tree) |
194 (,func tree) |
195 ) |
195 ) |
196 ((listp tree) |
196 ((listp tree) |
197 (mapcar ',name tree) |
197 (mapcar ',name tree) |
198 ) |
198 ) |
199 (t (error "Only tree of symbols allowed.")) |
199 (t (error "Only tree of symbols allowed")) |
200 ))) |
200 ))) |
201 |
201 |
202 (my-defun-rename-symb-tree |
202 (my-defun-rename-symb-tree |
203 my-feature2mode |
203 my-feature2mode |
204 "Convert TREE of features to TREE of modes for these features. Single symbol allowed." |
204 "Convert TREE of features to TREE of modes for these features. Single symbol allowed." |
410 |
410 |
411 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
411 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
412 (message "shell, bash, Cygwin, MSYS") |
412 (message "shell, bash, Cygwin, MSYS") |
413 |
413 |
414 (defvar my-use-windows-shell nil |
414 (defvar my-use-windows-shell nil |
415 "If t 'cmdproxy.exe' will be used as shell. Affect on M-x shell like |
415 "If t 'cmdproxy.exe' will be used as shell. |
416 commands. If nil, 'sh' will be used." ) |
416 Affect on \\[shell] like commands. If nil, 'sh' will be used." ) |
417 |
417 |
418 (defun follow-cygwin-symlink () |
418 (defun follow-cygwin-symlink () |
419 "Follow new-style (and also UCS-16) Cygwin symlinks." |
419 "Follow new-style (and also UCS-16) Cygwin symlinks." |
420 (save-excursion |
420 (save-excursion |
421 (goto-char 0) |
421 (goto-char 0) |