Mercurial > hg > xemacs-beta

view lisp/gnome.el @ 4649:3972966a4588

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Kill buffer if directory name misspelled and user doesn't want to create it. Robert Delius Royar, Rodney Sparapani and I want this behaviour, as far as I can tell; Stephen Turnbull doesn't. lisp/ChangeLog addition: 2009-07-12 Aidan Kehoe <kehoea@parhasard.net> * files.el (after-find-file): If the answer to "The directory containing %s does not exist. Create?" is no, kill the current buffer, since the user probably just misspelled the directory name. Thank you Rodney Sparapani!
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 12 Jul 2009 14:20:55 +0100
parents 7039e6323819
children db7068430402
line wrap: on
line source

(globally-declare-fboundp
 '(gtk-type-from-name
   gtk-import-function-internal
   gtk-call-function))

(defvar gnome-init-called nil)

(defun gnome-init (app-id app-version argv)
  (mapc 'dll-load
	'("libgnomesupport.so"
	  "libgnome.so"
	  "libgnomeui.so"
	  "libesd.so"
	  "libaudiofile.so"
	  "libart_lgpl.so"))
  (if (and (not (noninteractive)) (not gnome-init-called)
	   (= (gtk-type-from-name "GnomeApp") 0))      
      (prog1
	  (gtk-call-function (gtk-import-function-internal
			      'gint "gnome_init" '(GtkString GtkString gint GtkArrayOfString))
			     (list app-id app-version (length argv) argv))
	(setq gnome-init-called t))))

(require 'gnome-widgets)
(provide 'gnome)