Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-misc.el @ 146:2af401a6ecca r20-2p1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2p1
author cvs
date Mon, 13 Aug 2007 09:34:46 +0200
parents 585fb297b004
children 43dd3413c7c7
comparison
equal deleted inserted replaced
145:e13feca31ba6 146:2af401a6ecca
430 ;; make-frame works on ttys in FSF Emacs 19.29, but other than 430 ;; make-frame works on ttys in FSF Emacs 19.29, but other than
431 ;; looking at the version number I don't know a sane way to 431 ;; looking at the version number I don't know a sane way to
432 ;; test for it without just running make-frame. I'll just 432 ;; test for it without just running make-frame. I'll just
433 ;; let it not work for now... someone will complain eventually 433 ;; let it not work for now... someone will complain eventually
434 ;; and I'll think of something. 434 ;; and I'll think of something.
435 (defun vm-multiple-frames-possible-p () 435
436 (or (and (boundp 'window-system) (not (eq window-system nil))) 436 (defun vm-multiple-frames-possible-p ()
437 (and (fboundp 'device-type) (eq (device-type) 'x)))) 437 (cond (vm-xemacs-p
438 438 (eq (device-type) 'x))
439 (defun vm-mouse-support-possible-p () 439 (vm-fsfemacs-19-p
440 (vm-multiple-frames-possible-p)) 440 (not (eq window-system nil)))))
441 441
442 (defun vm-mouse-support-possible-p ()
443 (vm-multiple-frames-possible-p))
444
442 (defun vm-menu-support-possible-p () 445 (defun vm-menu-support-possible-p ()
443 (cond (vm-xemacs-p 446 (cond (vm-xemacs-p
444 (featurep 'menubar)) 447 (featurep 'menubar))
445 (vm-fsfemacs-19-p 448 (vm-fsfemacs-19-p
446 (fboundp 'menu-bar-mode)) 449 (fboundp 'menu-bar-mode))
447 (t nil))) 450 (t nil)))
448 451
449 (defun vm-toolbar-support-possible-p () 452 (defun vm-toolbar-support-possible-p ()
450 (and vm-xemacs-p 453 (and vm-xemacs-p (featurep 'toolbar)))
451 (vm-multiple-frames-possible-p)
452 (featurep 'toolbar)))
453 454
454 (defun vm-multiple-fonts-possible-p () 455 (defun vm-multiple-fonts-possible-p ()
455 (or (eq window-system 'x) 456 (cond (vm-xemacs-p
456 (and (fboundp 'device-type) 457 (eq (device-type) 'x))
457 (eq (device-type) 'x)))) 458 (vm-fsfemacs-19-p
459 (eq window-system 'x))))
458 460
459 (defun vm-run-message-hook (message &optional hook-variable) 461 (defun vm-run-message-hook (message &optional hook-variable)
460 (save-excursion 462 (save-excursion
461 (set-buffer (vm-buffer-of message)) 463 (set-buffer (vm-buffer-of message))
462 (vm-save-restriction 464 (vm-save-restriction