Lines Matching +defs:temp +defs:file +defs:name
11 ;; This file is part of GNU Emacs.
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
137 ;; file:
148 ;; In Dired, to display the file named on the current line:
149 ;; M-x browse-url-of-dired-file RET
164 ;; (global-set-key "\C-c\C-zv" 'browse-url-of-file)
167 ;; (local-set-key "\C-c\C-zf" 'browse-url-of-dired-file)))
181 ;; To always save modified buffers before displaying the file in a browser:
182 ;; (setq browse-url-save-file t)
185 ;; write-file in html-helper-mode make Netscape reload the document:
188 ;; "Ask a WWW browser to redisplay the current file." t)
191 ;; (add-hook 'local-write-file-hooks
193 ;; (let ((local-write-file-hooks))
196 ;; t) ; => file written by hook
199 ;; OR have browse-url-of-file ask Netscape to load and then reload the
200 ;; file:
202 ;; (add-hook 'browse-url-of-file-hook 'browse-url-netscape-reload)
240 `browse-url-of-file' commands.
284 "*The name by which to invoke Netscape.
312 "*The name by which to invoke Mozilla."
330 "*The name by which to invoke Firefox."
348 "*The name by which to invoke Galeon."
365 "*The name by which to invoke Epiphany."
438 "*The name by which to invoke Mosaic (or mMosaic)."
449 "*The name of the pidfile created by Mosaic."
461 '(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/")
462 ("^[\\/][\\/]+" . "file://"))))
463 ("^/+" . "file:/")))
464 "*An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'.
468 value converts ange-ftp/EFS-style file names into ftp URLs and prepends
469 `file:' to any file name beginning with `/'.
479 (\"^/+\" . \"file:/\")))
487 (defcustom browse-url-save-file nil
488 "*If non-nil, save the buffer before displaying its file.
489 Used by the `browse-url-of-file' command."
493 (defcustom browse-url-of-file-hook nil
494 "*Run after `browse-url-of-file' has asked a browser to load a file.
497 file rather than displaying a cached copy."
511 This should be the host name of the machine running XMosaic with CCI
516 (defvar browse-url-temp-file-name nil)
517 (make-variable-buffer-local 'browse-url-temp-file-name)
520 "*The name of the terminal emulator used by `browse-url-lynx-xterm'.
543 "*The name of the `gnudoit' program used by `browse-url-w3-gnudoit'."
554 "*The name of the browser program used by `browse-url-generic'."
563 (defcustom browse-url-temp-dir temporary-file-directory
564 "*The name of a directory for browse-url's temporary files.
604 "*The name by which to invoke the KDE web browser."
660 (defun browse-url-of-file (&optional file)
662 Display the current buffer's file if FILE is nil or if called
664 `browse-url-file-url'. Pass the URL to a browser using the
665 `browse-url' function then run `browse-url-of-file-hook'."
667 (or file
668 (setq file (buffer-file-name))
669 (error "Current buffer has no file"))
670 (let ((buf (get-file-buffer file)))
675 (browse-url-save-file (save-buffer))
676 (t (message "%s modified since last save" file))))))
677 (browse-url (browse-url-file-url file))
678 (run-hooks 'browse-url-of-file-hook))
680 (defun browse-url-file-url (file)
684 (or file-name-coding-system
685 default-file-name-coding-system))))
686 (if coding (setq file (encode-coding-string file coding))))
689 (while (setq s (string-match "%" file s))
690 (setq file (replace-match "%25" t t file)
692 (while (string-match "[*\"()',=;? ]" file)
693 (let ((enc (format "%%%x" (aref file (match-beginning 0)))))
694 (setq file (replace-match enc t t file))))
696 (when (and map (string-match (car map) file))
697 (setq file (replace-match (cdr map) t nil file))))
698 file)
704 currently visible part of BUFFER (from a temporary file) if buffer is
709 (let ((file-name
710 ;; Ignore real name if restricted
712 (or buffer-file-name
714 (or file-name
716 (or browse-url-temp-file-name
717 (setq browse-url-temp-file-name
719 (make-temp-file
720 (expand-file-name "burl" browse-url-temp-dir)
722 (setq file-name browse-url-temp-file-name)
723 (write-region (point-min) (point-max) file-name nil 'no-message)))
724 (browse-url-of-file file-name))))
726 (defun browse-url-delete-temp-file (&optional temp-file-name)
727 ;; Delete browse-url-temp-file-name from the file system
729 (let ((file-name (or temp-file-name browse-url-temp-file-name)))
730 (if (and file-name (file-exists-p file-name))
731 (delete-file file-name))))
733 (add-hook 'kill-buffer-hook 'browse-url-delete-temp-file)
736 (defun browse-url-of-dired-file ()
737 "In Dired, ask a WWW browser to display the file named on this line."
739 (browse-url-of-file (dired-get-filename)))
1215 (let ((pidfile (expand-file-name browse-url-mosaic-pidfile))
1217 (if (file-readable-p pidfile)
1219 (find-file pidfile)
1225 (find-file (format "/tmp/Mosaic.%d" pid))
1374 ;; (term-term-name "vt100") ; ??
1434 ;; mmm_remote just SEGVs if the file isn't there...
1435 (if (or (file-exists-p (expand-file-name "~/.mmm_remote"))
1437 (file-exists-p (expand-file-name "~/.mmm/remote")))