Mercurial > emacs
view lispref/two.el @ 51968:e4c4c45ea013
Tramp 2.0.36 released.
* net/tramp.el (tramp-default-password-end-of-line): Renamed from
tramp-password-end-of-line.
(tramp-password-end-of-line): New method parameter.
(tramp-get-password-end-of-line): Function to access method
parameter `tramp-password-end-of-line', or variable
`tramp-default-password-end-of-line' (default value).
(tramp-methods): Add entries for new parameter
tramp-password-end-of-line.
(tramp-enter-password): Use new function
`tramp-get-password-end-of-line'.
(tramp-handle-insert-file-contents): Do not
unconditionally inhibit the file operation file-local-copy, only
do that when the inhibit-file-name-operation is currently
insert-file-contents. This fixes finding remote CVS-controlled
files. (It would barf on inserting the CVS/Entries file
literally, because the file-local-copy handler wasn't called.)
(tramp-handle-shell-command): Support optional third arg
ERROR-BUFFER.
(tramp-sh-extra-args): Adapt defcustom type to XEmacs.
(tramp-initial-commands): New variable.
(tramp-process-initial-commands): New function, using the variable.
(tramp-open-connection-setup-interactive-shell): Call the new
function.
(tramp-buffer-name, tramp-debug-buffer-name): Always put the
method into the buffer name, never use nil. Reported by Hanak
David <dhanak@inf.bme.hu>.
(tramp-open-connection-setup-interactive-shell): Erase buffer
before sending "stty -onlcr".
* net/tramp-vc.el (vc-workfile-unchanged-p): Add comment.
author | Kai Großjohann <kgrossjo@eu.uu.net> |
---|---|
date | Sun, 20 Jul 2003 19:04:48 +0000 |
parents | 23a1cea22d13 |
children | 695cf19ef79e |
line wrap: on
line source
;; Auxilary functions for preparing a two volume manual. ;; --rjc 30mar92 (defun volume-aux-markup (arg) "Append `vol. NUMBER' to page number. Apply to aux file that you save. Then insert marked file into other volume's .aux file." (interactive "sType volume number, 1 or 2: " ) (goto-char (point-min)) (while (search-forward "-pg" nil t) (end-of-line 1) (delete-backward-char 1 nil) (insert ", vol.'tie" arg "}"))) (defun volume-index-markup (arg) "Prepend `NUMBER:' to page number. Use Roman Numeral. Apply only to unsorted index file, Then insert marked file into other volume's unsorted index file. Then run texindex on that file and save." (interactive "sType volume number, roman number I or II: " ) (goto-char (point-min)) (while (search-forward "\\entry" nil t) (search-forward "}{" (save-excursion (end-of-line) (point)) nil) (insert arg ":"))) (defun volume-numbers-toc-markup (arg) (interactive "sType volume number, roman number I or II: " ) (goto-char (point-min)) (while (search-forward "chapentry" nil t) (end-of-line) (search-backward "{" nil t) (forward-char 1) (insert arg ":"))) (defun volume-header-toc-markup () "Insert Volume I and Volume II text into .toc file. NOTE: this auxilary function is file specific. This is for the *Elisp Ref Manual*" (interactive) (goto-char (point-min)) (insert "\\unnumbchapentry {Volume 1}{}\n\\unnumbchapentry {}{}\n") (search-forward "\\unnumbchapentry {Index}") (forward-line 1) (insert "\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {Volume 2}{}\n\\unnumbchapentry {}{}\n")) ;;; In batch mode, you cannot call functions with args; hence this kludge: (defun volume-aux-markup-1 () (volume-aux-markup "1")) (defun volume-aux-markup-2 () (volume-aux-markup "2")) (defun volume-index-markup-I () (volume-index-markup "I")) (defun volume-index-markup-II () (volume-index-markup "II")) (defun volume-numbers-toc-markup-I () (volume-numbers-toc-markup "I")) (defun volume-numbers-toc-markup-II () (volume-numbers-toc-markup "II"))