527 |
|
|
528 |
(defun parse-colon-path (cd-path) |
(defun parse-colon-path (cd-path) |
529 |
"Explode a search path into a list of directory names. |
"Explode a search path into a list of directory names. |
530 |
Directories are separated by occurrences of `path-separator'." |
Directories are separated by occurrences of `path-separator' |
531 |
|
\(which is colon in GNU and GNU-like systems)." |
532 |
;; We could use split-string here. |
;; We could use split-string here. |
533 |
(and cd-path |
(and cd-path |
534 |
(let (cd-list (cd-start 0) cd-colon) |
(let (cd-list (cd-start 0) cd-colon) |
563 |
"Make DIR become the current buffer's default directory. |
"Make DIR become the current buffer's default directory. |
564 |
If your environment includes a `CDPATH' variable, try each one of |
If your environment includes a `CDPATH' variable, try each one of |
565 |
that list of directories (separated by occurrences of |
that list of directories (separated by occurrences of |
566 |
`path-separator') when resolving a relative directory name." |
`path-separator') when resolving a relative directory name. |
567 |
|
The path separator is colon in GNU and GNU-like systems." |
568 |
(interactive |
(interactive |
569 |
(list (read-directory-name "Change default directory: " |
(list (read-directory-name "Change default directory: " |
570 |
default-directory default-directory |
default-directory default-directory |
3482 |
The idea behind the NOCONFIRM argument is that it should be |
The idea behind the NOCONFIRM argument is that it should be |
3483 |
non-nil if the buffer is going to be reverted without asking the |
non-nil if the buffer is going to be reverted without asking the |
3484 |
user. In such situations, one has to be careful with potentially |
user. In such situations, one has to be careful with potentially |
3485 |
time consuming operations.") |
time consuming operations. |
3486 |
|
|
3487 |
|
For more information on how this variable is used by Auto Revert mode, |
3488 |
|
see Info node `(emacs-xtra)Supporting additional buffers'.") |
3489 |
|
|
3490 |
(defvar before-revert-hook nil |
(defvar before-revert-hook nil |
3491 |
"Normal hook for `revert-buffer' to run before reverting. |
"Normal hook for `revert-buffer' to run before reverting. |