Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-mouse.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 859a2309aef8
children 441bb1e64a06
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
211 (insert-file-contents pid-file) 211 (insert-file-contents pid-file)
212 (setq pid (int-to-string (string-to-int (buffer-string)))) 212 (setq pid (int-to-string (string-to-int (buffer-string))))
213 (erase-buffer) 213 (erase-buffer)
214 (insert (if new-window "newwin" "goto") ?\n) 214 (insert (if new-window "newwin" "goto") ?\n)
215 (insert url ?\n) 215 (insert url ?\n)
216 ;; newline convention used should be the local
217 ;; one, whatever that is.
218 (setq buffer-file-type nil)
219 (and (fboundp 'set-file-coding-system)
220 (set-file-coding-system 'no-conversion nil))
216 (write-region (point-min) (point-max) 221 (write-region (point-min) (point-max)
217 (concat "/tmp/Mosaic." pid) 222 (concat "/tmp/Mosaic." pid)
218 nil 0) 223 nil 0)
219 (set-buffer-modified-p nil) 224 (set-buffer-modified-p nil)
220 (kill-buffer work-buffer))) 225 (kill-buffer work-buffer)))
326 (save-excursion 331 (save-excursion
327 (save-excursion 332 (save-excursion
328 (let ((vm-mutable-frames t)) 333 (let ((vm-mutable-frames t))
329 (vm-delete-windows-or-frames-on (current-buffer)))) 334 (vm-delete-windows-or-frames-on (current-buffer))))
330 (setq vm-mouse-read-file-name-return-value 335 (setq vm-mouse-read-file-name-return-value
331 (vm-keyboard-read-file-name 336 (save-excursion
332 vm-mouse-read-file-name-prompt 337 (vm-keyboard-read-file-name
333 vm-mouse-read-file-name-dir 338 vm-mouse-read-file-name-prompt
334 vm-mouse-read-file-name-default 339 vm-mouse-read-file-name-dir
335 vm-mouse-read-file-name-must-match 340 vm-mouse-read-file-name-default
336 vm-mouse-read-file-name-initial 341 vm-mouse-read-file-name-must-match
337 vm-mouse-read-file-name-history)) 342 vm-mouse-read-file-name-initial
343 vm-mouse-read-file-name-history)))
338 (vm-mouse-read-file-name-quit-handler t)) 344 (vm-mouse-read-file-name-quit-handler t))
339 (quit (vm-mouse-read-file-name-quit-handler)))) 345 (quit (vm-mouse-read-file-name-quit-handler))))
340 ((file-directory-p string) 346 ((file-directory-p string)
341 (setq default-directory (expand-file-name string))) 347 (setq default-directory (expand-file-name string)))
342 (t (setq vm-mouse-read-file-name-return-value 348 (t (setq vm-mouse-read-file-name-return-value