← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/vm/gutsy

« back to all changes in this revision

Viewing changes to vm-version.el

  • Committer: Bazaar Package Importer
  • Author(s): Manoj Srivastava
  • Date: 2005-05-02 23:57:59 UTC
  • mfrom: (2.1.2 hoary)
  • Revision ID: james.westby@ubuntu.com-20050502235759-lsq60hinwkchrbxp
Tags: 7.19-4
http://bugs.debian.org/306876
http://bugs.debian.org/303519
* Bug fix: "vm: Please do not discriminate against XEmacs", thanks to
  Dirk Eddelbuettel. Well, back in the mists of time, VM was packaged to
  be byte-compiled for XEmacs, but the XEmacs maintainer at that time
  asked me to cease and desist. Times change, so that is reverted. 
                                                        (Closes: #306876).
* Bug fix: "vm: purge doesn't", thanks to Ian Zimmerman. This should be
  better.                                               (Closes: #303519).

Show diffs side-by-side

added added

removed removed

Lines of Context:
vm-version.el
1
 
(provide 'vm)
2
 
 
3
 
(provide 'vm-version)
4
 
 
5
 
(defconst vm-version "7.03"
 
1
;;(provide 'vm)
 
2
;;(provide 'vm-version)
 
3
 
 
4
(defconst vm-version "7.19"
6
5
  "Version number of VM.")
7
6
 
8
7
(defun vm-version ()
77
76
  (cond (vm-xemacs-p
78
77
         (memq 'win (device-matching-specifier-tag-list)))
79
78
        (vm-fsfemacs-p
80
 
         (memq window-system '(x w32 win32)))))
 
79
         (memq window-system '(x mac w32 win32)))))
81
80
 
82
81
(defun vm-menu-support-possible-p ()
83
82
  (cond (vm-xemacs-p
91
90
 
92
91
(defun vm-multiple-fonts-possible-p ()
93
92
  (cond (vm-xemacs-p
94
 
         (memq (device-type) '(x mswindows)))
 
93
         (memq (device-type) '(x gtk mswindows)))
95
94
        (vm-fsfemacs-p
96
 
         (memq window-system '(x w32 win32)))))
 
95
         (memq window-system '(x mac w32 win32)))))
97
96
 
98
97
(defun vm-images-possible-here-p ()
99
 
  (or (and vm-xemacs-p (memq (device-type) '(x mswindows)))
 
98
  (or (and vm-xemacs-p (memq (device-type) '(x gtk mswindows)))
100
99
      (and vm-fsfemacs-p window-system
101
100
           (or (fboundp 'image-type-available-p)
102
101
               (and (stringp vm-imagemagick-convert-program)
106
105
  (if (fboundp 'image-type-available-p)
107
106
      (image-type-available-p type)
108
107
    (or (featurep type) (eq type 'xbm))))
 
108
 
 
109
(provide 'vm)
 
110
(provide 'vm-version)