← Back to branch summary

~ubuntu-branches/ubuntu/vivid/vm/vivid

« back to all changes in this revision

Viewing changes to lisp/vm-version.el

  • Committer: Package Import Robot
  • Author(s): Manoj Srivastava
  • Date: 2014-04-28 16:31:54 UTC
  • mfrom: (1.1.9)
  • Revision ID: package-import@ubuntu.com-20140428163154-mw6t5gn60x29xamk
Tags: 8.2.0b-1
New upstream release. This has been in Beta for two years now, and
seems to work fine.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/vm-version.el
18
18
;; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
19
 
20
20
;;; Code:
 
21
 
 
22
(provide 'vm-version)
 
23
 
 
24
;; Don't use vm-device-type here because it may not not be loaded yet.
 
25
(declare-function device-type "vm-xemacs" ())
 
26
(declare-function device-matching-specifier-tag-list "vm-xemacs" ())
 
27
 
 
28
 
21
29
(defconst vm-version
22
30
  (condition-case nil
23
31
      (with-temp-buffer
60
68
(defun vm-fsfemacs-p () vm-fsfemacs-p)
61
69
(defun vm-fsfemacs-mule-p () vm-fsfemacs-mule-p)
62
70
 
 
71
(defun vm-emacs-mule-p ()
 
72
  (or vm-xemacs-mule-p vm-fsfemacs-mule-p))
 
73
 
63
74
(defun vm-mouse-fsfemacs-mouse-p ()
64
75
  (and vm-fsfemacs-p
65
76
       (fboundp 'set-mouse-position)))
113
124
        (vm-fsfemacs-p
114
125
         (fboundp 'menu-bar-mode))))
115
126
 
 
127
(defun vm-menubar-buttons-possible-p ()
 
128
  "Menubar buttons are menus that have an immediate action.  Some
 
129
Windowing toolkits do not allow such buttons.  This says whether such
 
130
buttons are possible under the current windowing system."
 
131
  (not
 
132
   (cond (vm-xemacs-p (memq (device-type) '(gtk ns)))
 
133
         (vm-fsfemacs-p (or (and (eq window-system 'x) (featurep 'gtk))
 
134
                            (eq window-system 'ns))))))
 
135
 
116
136
(defun vm-toolbar-support-possible-p ()
117
137
  (or (and vm-xemacs-p (featurep 'toolbar))
118
138
      (and vm-fsfemacs-p (fboundp 'tool-bar-mode) (boundp 'tool-bar-map))))
149
169
                         f
150
170
                       (when (not silent)
151
171
                         (message "WARNING: Could not load feature %S." f)
152
 
                         (sit-for 1)
 
172
                         ;; (sit-for 1)
153
173
                         (message "WARNING: Related functions may not work correctly!")
154
 
                         (sit-for 1))
 
174
                         ;; (sit-for 1)
 
175
                         )
155
176
                       nil))))
156
177
                feature-list))
157
178
  (delete nil feature-list))
158
179
 
159
 
(provide 'vm-version)
160
 
 
161
180
;;; vm-version.el ends here