xemacs-beta: lisp/menubar-items.el comparison

Import from CVS: tag r21-2-13

comparison

equal deleted inserted replaced

-:de2c2a7459d2
+:6719134a07c2
 ("Add Download Site"
 :filter (lambda (&rest junk)
 (package-get-download-menu)))
 ["Update Package Index" package-get-update-base]
 ["List & Install" pui-list-packages]
-("Using Custom"
+["Update Installed Packages" package-get-update-all]
-	("Select" :filter (lambda (&rest junk)
+;; hack-o-matic, we can't force a laod of package-base here
-			  (cdr (custom-menu-create 'packages))))
+;; since it triggers dialog box interactions which we can't
-	["Update" package-get-custom])
+;; deal while using a menu
+("Using Custom"
+	:filter (lambda (&rest junk)
+		  (if package-get-base
+		      (cdr (custom-menu-create 'packages))
+		    '(["Please load Package Index" (lamda (&rest junk) ()) nil]))))
 ["Help" (Info-goto-node "(xemacs)Packages")])
 "---"
 ("Editing Options"
 ;;        ))
 (defun xemacs-splash-buffer ()
 "Redisplay XEmacs splash screen in a buffer."
 (interactive)
-(let ((buffer (get-buffer-create "*Splash*")))
+(let ((buffer (get-buffer-create "*Splash*"))
+	tmout)
 (set-buffer buffer)
+(setq buffer-read-only t)
 (erase-buffer buffer)
-(startup-splash-frame)
+(setq tmout (display-splash-frame))
+(when tmout
+(make-local-hook 'kill-buffer-hook)
+(add-hook 'kill-buffer-hook
+		`(lambda ()
+		   (disable-timeout ,tmout))
+		nil t))
 (pop-to-buffer buffer)
 (delete-other-windows)))
 ;;; backwards compatibility

Mercurial > hg > xemacs-beta