Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-misc.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 2af401a6ecca
children 489f57a838ef
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
421 ((vectorp object) (apply 'vector (mapcar 'vm-copy object))) 421 ((vectorp object) (apply 'vector (mapcar 'vm-copy object)))
422 ((stringp object) (copy-sequence object)) 422 ((stringp object) (copy-sequence object))
423 ((markerp object) (copy-marker object)) 423 ((markerp object) (copy-marker object))
424 (t object))) 424 (t object)))
425 425
426 ;; make-frame might be defined and still not work. This would
427 ;; be true since the user could be running on a tty and using
428 ;; XEmacs 19.12, or using FSF Emacs 19.28 (or prior FSF Emacs versions).
429 ;;
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
432 ;; test for it without just running make-frame. I'll just
433 ;; let it not work for now... someone will complain eventually
434 ;; and I'll think of something.
435
436 (defun vm-multiple-frames-possible-p () 426 (defun vm-multiple-frames-possible-p ()
437 (cond (vm-xemacs-p 427 (cond (vm-xemacs-p
438 (eq (device-type) 'x)) 428 (or (memq 'win (device-matching-specifier-tag-list))
429 (featurep 'tty-frames)))
439 (vm-fsfemacs-19-p 430 (vm-fsfemacs-19-p
440 (not (eq window-system nil))))) 431 (fboundp 'make-frame))))
441 432
442 (defun vm-mouse-support-possible-p () 433 (defun vm-mouse-support-possible-p ()
443 (vm-multiple-frames-possible-p)) 434 (cond (vm-xemacs-p
435 (featurep 'window-system))
436 (vm-fsfemacs-19-p
437 (fboundp 'track-mouse))))
444 438
439 (defun vm-mouse-support-possible-here-p ()
440 (cond (vm-xemacs-p
441 (memq 'win (device-matching-specifier-tag-list)))
442 (vm-fsfemacs-19-p
443 (eq window-system 'x))))
444
445 (defun vm-menu-support-possible-p () 445 (defun vm-menu-support-possible-p ()
446 (cond (vm-xemacs-p 446 (cond (vm-xemacs-p
447 (featurep 'menubar)) 447 (featurep 'menubar))
448 (vm-fsfemacs-19-p 448 (vm-fsfemacs-19-p
449 (fboundp 'menu-bar-mode)) 449 (fboundp 'menu-bar-mode))))
450 (t nil)))
451 450
452 (defun vm-toolbar-support-possible-p () 451 (defun vm-toolbar-support-possible-p ()
453 (and vm-xemacs-p (featurep 'toolbar))) 452 (and vm-xemacs-p (featurep 'toolbar)))
454 453
455 (defun vm-multiple-fonts-possible-p () 454 (defun vm-multiple-fonts-possible-p ()