Lines Matching +defs:make +defs:variable +defs:buffer +defs:local
53 ;; ;; Set buffer-local variables here. For example:
71 ;; dired-enable-local-variables
72 ;; dired-local-variables-file
84 ;; the end of any of the variable names, and hit C-h v [RET]. *Please* see
92 ;; dired-find-buffer-nocreate ../lisp/dired.el
165 otherwise. Enabling and disabling is buffer-local.
173 (revert-buffer)))
177 (make-obsolete-variable 'dired-omit-files-p 'dired-omit-mode)
182 `dired-omit-mode' \(\\[dired-omit-mode]\) and variable
189 "*If non-nil, Dired always finds a directory in a buffer of its own.
190 If nil, Dired finds the directory as a subdirectory in some other buffer
196 Dired avoids switching to the current buffer, so that if you have
197 a normal and a wildcard buffer for the same directory, \\[dired] will
208 (defcustom dired-enable-local-variables t
209 "*Control use of local-variables lists in Dired.
211 A value of t means local-variables lists are obeyed;
214 This temporarily overrides the value of `enable-local-variables' when listing
215 a directory. See also `dired-local-variables-file'."
285 :visible (fboundp 'make-symbolic-link)
320 :visible (fboundp 'make-symbolic-link)
370 `dired-enable-local-variables'
371 `dired-local-variables-file'
390 ;; These must be done in each new dired buffer.
391 (dired-hack-local-variables)
406 ;; Offer to kill buffer of deleted file FN.
409 (let ((buf (get-file-buffer fn)))
412 (format "Kill buffer of %s, too? "
414 (save-excursion ; you never know where kill-buffer leaves you
415 (kill-buffer buf))))
419 (y-or-n-p (format "Kill dired buffer%s of %s, too? "
423 (save-excursion (kill-buffer (car buf-list)))
479 See variable `dired-patch-unclean-extensions'."
511 "Jump to dired buffer corresponding to current buffer.
515 buffer and try again."
517 (let* ((file buffer-file-name)
578 (let ((dired-omit-mode nil)) (revert-buffer)) ;; Show omitted files
596 Does nothing if global variable `dired-omit-mode' is nil, or if called
597 non-interactively and buffer is bigger than `dired-omit-size-limit'.
608 (< (buffer-size) dired-omit-size-limit)
615 (old-modified-p (buffer-modified-p))
625 ;; Try to preserve modified state of buffer. So `%*' doesn't appear
627 (set-buffer-modified-p (and old-modified-p
675 (dired-make-relative filename))
677 (dired-make-absolute
704 "Put this buffer into Virtual Dired mode.
714 buffer.
716 If you have save a Dired buffer in a file you can use \\[dired-virtual] to
719 Type \\<dired-mode-map>\\[revert-buffer] \
720 in the Virtual Dired buffer and answer `y' to convert
721 the virtual to a real dired buffer again. You don't have to do this, though:
724 ;; DIRNAME is the top level directory of the buffer. It will become
731 ;; line in the buffer (thus it is a saved Dired buffer), but there
748 (buffer-substring (match-end 0)
752 ;; If raw ls listing (not a saved old dired buffer), give it a
761 revert-buffer-function 'dired-virtual-revert)
762 (set (make-local-variable 'dired-subdir-alist) nil)
768 "Guess and return appropriate working directory of this buffer.
769 The buffer is assumed to be in Dired or ls -lR format. The guess is
770 based upon buffer contents. If nothing could be guessed, returns
777 ;; If a saved dired buffer, look to which dir and
779 (let ((dir (buffer-substring (match-beginning subexpr)
789 (buffer-substring (match-beginning subexpr)
797 (y-or-n-p "Cannot revert a Virtual Dired buffer - switch to Real Dired mode? "))
798 (error "Cannot revert a Virtual Dired buffer")
800 revert-buffer-function 'dired-revert)
801 (revert-buffer)))
805 "Put current buffer into Virtual Dired mode (see `dired-virtual').
823 ;;; An Emacs buffer can have but one working directory, stored in the
824 ;;; buffer-local variable `default-directory'. A Dired buffer may have
826 ;;; that of the top level Dired directory in that buffer. For some commands
843 "Usage like variable `default-directory'.
844 Knows about the special cases in variable `default-directory-alist'."
864 ;;; * `dired-extra-startup' calls `dired-hack-local-variables'
866 ;;; * `dired-hack-local-variables' checks the value of
867 ;;; `dired-local-variables-file'
869 ;;; * Check if `dired-local-variables-file' is a non-nil string and is a
872 ;;; * If `dired-local-variables-file' satisfies the above, then temporarily
875 ;;; * Set `enable-local-variables' temporarily to the user variable
876 ;;; `dired-enable-local-variables' and run `hack-local-variables' on the
879 (defvar dired-local-variables-file (convert-standard-filename ".dired")
880 "Filename, as string, containing local dired buffer variables to be hacked.
882 buffer and `hack-local-variables' will be run. See Info node
883 `(emacs)File Variables' for more information on local variables.
884 See also `dired-enable-local-variables'.")
886 (defun dired-hack-local-variables ()
887 "Evaluate local variables in `dired-local-variables-file' for dired buffer."
888 (if (and dired-local-variables-file
889 (stringp dired-local-variables-file)
890 (file-exists-p dired-local-variables-file))
892 buffer-read-only
893 ;; In case user has `enable-local-variables' set to nil we
894 ;; override it locally with dired's variable.
895 (enable-local-variables dired-enable-local-variables))
900 (insert-file-contents dired-local-variables-file))
902 (let ((buffer-file-name dired-local-variables-file))
903 (hack-local-variables))
910 "Create `dired-local-variables-file' for omitting and reverts directory.
911 Sets `dired-omit-mode' to t in a local variables file that is readable by
914 (if (file-exists-p dired-local-variables-file)
915 (message "File `./%s' already exists." dired-local-variables-file)
917 ;; Create `dired-local-variables-file'.
919 (set-buffer (get-buffer-create " *dot-dired*"))
920 (erase-buffer)
922 (write-file dired-local-variables-file)
923 (kill-buffer (current-buffer)))
1047 (if (Man-support-local-filenames)
1051 (if (Man-support-local-filenames)
1057 (if (Man-support-local-filenames)
1115 These rules take precedence over the predefined rules in the variable
1127 You can set this variable in your ~/.emacs. For example, to add rules for
1254 "See variable `dired-keep-marker-move'.")
1256 (defun dired-make-relative-symlink (file1 file2 &optional ok-if-already-exists)
1260 \"/vol/tex/bin/foo\" \"/vol/local/bin/foo\"
1264 \"../../tex/bin/foo\" \"/vol/local/bin/foo\""
1303 (make-symbolic-link
1311 Otherwise make a relative symbolic link to the current file.
1322 (dired-do-create-files 'relsymlink (function dired-make-relative-symlink)
1331 (function dired-make-relative-symlink)
1370 To keep dired buffer displayed, type \\[split-window-vertically] first.
1382 current window and the variable `window-min-height'. With non-nil
1385 ;; We don't make this function interactive because it is usually too clumsy
1391 ;; Do not select the buffer.
1394 ;; We will have to select the buffer. Calculate and check window size.
1406 ;; Do not select the buffer.
1424 "Run man on this file. Display old buffer if buffer name matches filename.
1452 See also variable `dired-vm-read-only-folders'."
1462 (set (make-local-variable 'vm-folder-directory) dir)))
1482 (or (fboundp 'dired-old-find-buffer-nocreate)
1483 (fset 'dired-old-find-buffer-nocreate
1484 (symbol-function 'dired-find-buffer-nocreate)))
1487 ;;; Redefines dired.el's version of `dired-find-buffer-nocreate'
1488 (defun dired-find-buffer-nocreate (dirname &optional mode)
1492 (let* ((cur-buf (current-buffer))
1498 ;; We don't want to switch to the same buffer---
1500 (or (car (sort buffers (function dired-buffer-more-recently-used-p)))
1503 (dired-old-find-buffer-nocreate dirname mode)))
1506 (defun dired-buffer-more-recently-used-p (buffer1 buffer2)
1511 (list (buffer-list)))
1523 ;;; ;; The list is in reverse order of buffer creation, most recent last.
1531 ;;; (if (buffer-name buf)
1534 ;;; (if (or (equal dir (save-excursion (set-buffer buf)
1536 ;;; (assoc dir (save-excursion (set-buffer buf)
1539 ;;; ;; else buffer is killed - clean up:
1609 (setq inode (string-to-number (buffer-substring (match-beginning 1)
1611 s (string-to-number (buffer-substring (match-beginning 2)
1615 (setq mode (buffer-substring (point) (+ mode-len (point))))
1617 (setq nlink (read (current-buffer)))
1619 (setq uid (buffer-substring (+ (point) 1)
1624 (setq size (string-to-number (buffer-substring (save-excursion
1632 (setq gid (buffer-substring (save-excursion
1635 time (buffer-substring (match-beginning 1)
1637 name (buffer-substring (point)
1643 (buffer-substring
1659 If you change this variable after `dired-x.el' is loaded then do
1687 ;; Clear mini-buffer.
1698 See the function `display-buffer'.
1702 Useful for editing file mentioned in buffer you are viewing,
1710 See the function `display-buffer'.
1714 Useful for editing file mentioned in buffer you are viewing,
1749 (buffer-substring start (line-beginning-position)))
1759 (expand-file-name (concat prefix (buffer-substring start (point)))))))
1783 (defconst dired-x-variable-list
1791 'dired-enable-local-variables
1792 'dired-local-variables-file
1808 variables `dired-x-variable-list' in the message."
1814 dired-x-variable-list ; varlist