Mercurial > hg > xemacs-beta

comparison lisp/loadup.el @ 5228:5efbd1253905

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove all support for InfoDock. src/ChangeLog addition: 2010-06-02 Aidan Kehoe <kehoea@parhasard.net> * lread.c (vars_of_lread): * emacs.c: (shut_down_emacs, vars_of_emacs, complex_vars_of_emacs): * device-x.c (get_device_from_display) (have_xemacs_resources_in_xrdb): * device-gtk.c (Fgtk_init): * config.h.in: Remove all checks for InfoDock. lisp/ChangeLog addition: 2010-06-02 Aidan Kehoe <kehoea@parhasard.net> * version.el: (emacs-version): * startup.el (command-line): * simple.el (display-warning, emacs-name): * packages.el (packages-package-hierarchy-directory-names): * loadup.el (Dumping): * dumped-lisp.el (preloaded-file-list): Remove all InfoDock-specific code.
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 07 Jun 2010 18:42:10 +0100
parents 39d74978fd32
children 308d34e9f07d
comparison
equal deleted inserted replaced
5227:fbd1485af104 5228:5efbd1253905
262 ;; Make sure we don't dump with debugging messages turned on. 262 ;; Make sure we don't dump with debugging messages turned on.
263 (setq stack-trace-on-error nil 263 (setq stack-trace-on-error nil
264 load-always-display-messages nil 264 load-always-display-messages nil
265 debug-on-error nil) 265 debug-on-error nil)
266 (dump-emacs 266 (dump-emacs
267 (cond 267 "xemacs"
268 ((featurep 'infodock) "infodock")
269 ;; #### BILL!!!
270 ;; If we want to dump under a name other than `xemacs', do that here!
271 ;; ((featurep 'gtk) "xemacs-gtk")
272 (t "xemacs"))
273 "temacs") 268 "temacs")
274 (kill-emacs)) 269 (kill-emacs))
275 270
276 ;; Avoid error if user loads some more libraries now. 271 ;; Avoid error if user loads some more libraries now.
277 (setq purify-flag nil) 272 (setq purify-flag nil)