Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-mouse.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 585fb297b004
children
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
322 (setq vm-mouse-read-file-name-must-match must-match) 322 (setq vm-mouse-read-file-name-must-match must-match)
323 (setq vm-mouse-read-file-name-initial initial) 323 (setq vm-mouse-read-file-name-initial initial)
324 (setq vm-mouse-read-file-name-history history) 324 (setq vm-mouse-read-file-name-history history)
325 (setq vm-mouse-read-file-name-prompt prompt) 325 (setq vm-mouse-read-file-name-prompt prompt)
326 (setq vm-mouse-read-file-name-return-value nil) 326 (setq vm-mouse-read-file-name-return-value nil)
327 (if (and vm-frame-per-completion (vm-multiple-frames-possible-p)) 327 (if (and vm-mutable-frames vm-frame-per-completion
328 (vm-multiple-frames-possible-p))
328 (save-excursion 329 (save-excursion
329 (vm-goto-new-frame 'completion))) 330 (vm-goto-new-frame 'completion)))
330 (switch-to-buffer (current-buffer)) 331 (switch-to-buffer (current-buffer))
331 (vm-mouse-read-file-name-event-handler) 332 (vm-mouse-read-file-name-event-handler)
332 (save-excursion 333 (save-excursion
343 start list) 344 start list)
344 (if string 345 (if string
345 (cond ((equal string key-doc) 346 (cond ((equal string key-doc)
346 (condition-case nil 347 (condition-case nil
347 (save-excursion 348 (save-excursion
348 (save-excursion
349 (let ((vm-mutable-frames t))
350 (vm-delete-windows-or-frames-on (current-buffer))))
351 (setq vm-mouse-read-file-name-return-value 349 (setq vm-mouse-read-file-name-return-value
352 (save-excursion 350 (save-excursion
353 (vm-keyboard-read-file-name 351 (vm-keyboard-read-file-name
354 vm-mouse-read-file-name-prompt 352 vm-mouse-read-file-name-prompt
355 vm-mouse-read-file-name-dir 353 vm-mouse-read-file-name-dir
387 (vm-show-list list 'vm-mouse-read-file-name-event-handler) 385 (vm-show-list list 'vm-mouse-read-file-name-event-handler)
388 (setq buffer-read-only t))) 386 (setq buffer-read-only t)))
389 387
390 (defun vm-mouse-read-file-name-quit-handler (&optional normal-exit) 388 (defun vm-mouse-read-file-name-quit-handler (&optional normal-exit)
391 (interactive) 389 (interactive)
392 (let ((vm-mutable-frames t)) 390 (vm-maybe-delete-windows-or-frames-on (current-buffer))
393 (vm-delete-windows-or-frames-on (current-buffer)) 391 (if normal-exit
394 (if normal-exit 392 (throw 'exit nil)
395 (throw 'exit nil) 393 (throw 'exit t)))
396 (throw 'exit t))))
397 394
398 (defvar vm-mouse-read-string-prompt) 395 (defvar vm-mouse-read-string-prompt)
399 (defvar vm-mouse-read-string-completion-list) 396 (defvar vm-mouse-read-string-completion-list)
400 (defvar vm-mouse-read-string-multi-word) 397 (defvar vm-mouse-read-string-multi-word)
401 (defvar vm-mouse-read-string-return-value) 398 (defvar vm-mouse-read-string-return-value)
411 (make-local-variable 'vm-mouse-read-string-return-value) 408 (make-local-variable 'vm-mouse-read-string-return-value)
412 (setq vm-mouse-read-string-prompt prompt) 409 (setq vm-mouse-read-string-prompt prompt)
413 (setq vm-mouse-read-string-completion-list completion-list) 410 (setq vm-mouse-read-string-completion-list completion-list)
414 (setq vm-mouse-read-string-multi-word multi-word) 411 (setq vm-mouse-read-string-multi-word multi-word)
415 (setq vm-mouse-read-string-return-value nil) 412 (setq vm-mouse-read-string-return-value nil)
416 (if (and vm-frame-per-completion (vm-multiple-frames-possible-p)) 413 (if (and vm-mutable-frames vm-frame-per-completion
414 (vm-multiple-frames-possible-p))
417 (save-excursion 415 (save-excursion
418 (vm-goto-new-frame 'completion))) 416 (vm-goto-new-frame 'completion)))
419 (switch-to-buffer (current-buffer)) 417 (switch-to-buffer (current-buffer))
420 (vm-mouse-read-string-event-handler) 418 (vm-mouse-read-string-event-handler)
421 (save-excursion 419 (save-excursion
436 start list) 434 start list)
437 (if string 435 (if string
438 (cond ((equal string key-doc) 436 (cond ((equal string key-doc)
439 (condition-case nil 437 (condition-case nil
440 (save-excursion 438 (save-excursion
441 (save-excursion
442 (let ((vm-mutable-frames t))
443 (vm-delete-windows-or-frames-on (current-buffer))))
444 (setq vm-mouse-read-string-return-value 439 (setq vm-mouse-read-string-return-value
445 (vm-keyboard-read-string 440 (vm-keyboard-read-string
446 vm-mouse-read-string-prompt 441 vm-mouse-read-string-prompt
447 vm-mouse-read-string-completion-list 442 vm-mouse-read-string-completion-list
448 vm-mouse-read-string-multi-word)) 443 vm-mouse-read-string-multi-word))
489 'vm-mouse-read-string-event-handler) 484 'vm-mouse-read-string-event-handler)
490 (setq buffer-read-only t))) 485 (setq buffer-read-only t)))
491 486
492 (defun vm-mouse-read-string-quit-handler (&optional normal-exit) 487 (defun vm-mouse-read-string-quit-handler (&optional normal-exit)
493 (interactive) 488 (interactive)
494 (let ((vm-mutable-frames t)) 489 (vm-maybe-delete-windows-or-frames-on (current-buffer))
495 (vm-delete-windows-or-frames-on (current-buffer)) 490 (if normal-exit
496 (if normal-exit 491 (throw 'exit nil)
497 (throw 'exit nil) 492 (throw 'exit t)))
498 (throw 'exit t))))