emacs w32 menu disapprears after clicking item

[rst]

Hi!

GNU Emacs 22.0.98.1 (i386-mingw-nt5.1.2600) of 2007-04-17 on
LENNART-69DE564 (patched)

Clicking a menu item in emacs w32 lets the menu disappear completetly.
Only after pressing C-g does it reappear.

How can i find out which of my settings causes this behaviour or can
anybody tell me why this happens.

my .emacs:


(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(Buffer-menu-buffer+size-width 44)
 '(Buffer-menu-mode-width 32)
 '(bs-max-window-height 60)
 '(bs-maximal-buffer-name-column 50)
 '(bs-minimal-buffer-name-column 20)
 '(bs-string-current "--->")
 '(buffer-auto-save-file-format t t)
 '(buffers-menu-max-size 30)
 '(calendar-week-start-day 1)
 '(cua-mode t nil (cua-base))
 '(default-major-mode (quote text-mode))
 '(desktop-save-mode t)
 '(display-time-24hr-format t)
 '(display-time-day-and-date t)
 '(display-time-default-load-average 1)
 '(display-time-mode t)
 '(ecb-layout-window-sizes nil)
 '(ecb-options-version "2.32")
 '(emacsw32-max-frames t)
 '(emacsw32-mode nil)
 '(emacsw32-style-frame-title t)
 '(global-auto-revert-ignore-buffer nil t)
 '(htmlize-view-print-visible t t)
 '(ibuffer-hooks nil)
 '(ibuffer-mode-hooks nil)
 '(icicle-reminder-prompt-flag 0)
 '(iswitchb-mode t)
 '(menuacc-active nil nil (menuacc))
 '(message-log-max 50)
 '(minibuffer-message-timeout 2 t)
 '(recentf-mode t)
 '(save-place t nil (saveplace))
 '(shell-command-default-error-buffer nil t)
 '(show-paren-mode t)
 '(speedbar-indentation-width 2)
 '(swbuff-y-mode t)
 '(term-buffer-maximum-size 2048 t)
 '(tool-bar-mode nil)
 '(transient-mark-mode t)
 '(uniquify-buffer-name-style (quote forward) nil (uniquify))
 '(visible-bell t)
 '(w32-meta-style (quote emacs))
 '(w32-print-menu-show-print nil)
 '(w32-print-menu-show-ps-print nil)
 '(w32shell-cygwin-bin "C:\\cygwin\\bin")
 '(w32shell-shell (quote cmd)))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 )

;; 
--------------------------------------------------------------------------------
;; aspell alias ispell
(setq-default ispell-program-name "c:/Programme/Aspell/bin/aspell.exe")
(require 'ispell)
;; (ispell-change-dictionary "deutsch")
;; "Global Ispell dictionary set to german"
(ispell-change-dictionary "german" t)
;; 
--------------------------------------------------------------------------------

;; Use "y or n" answers instead of full words "yes or no"
(fset 'yes-or-no-p 'y-or-n-p)

;; see http://www.emacsblog.org/

;; Always end searches at the beginning of the matching expression.
(add-hook 'isearch-mode-end-hook 'custom-goto-match-beginning)

(defun custom-goto-match-beginning ()
  "Use with isearch hook to end search at first char of match."
  (when isearch-forward (goto-char isearch-other-end)))
;;------------------------------------------------------------------

(setq load-path (cons "~/.emacs.d" load-path))
(add-to-list 'load-path "~/.emacs.d/speedbar-0.14beta4")
(add-to-list 'load-path "~/.emacs.d/eieio-0.17")
(add-to-list 'load-path "~/.emacs.d/semantic-1.4.4")

(setq semantic-load-turn-everything-on t)
;; (require 'semantic-load)

(add-to-list 'load-path "~/.emacs.d/ecb-2.32")
; benoetigt noch andere libs
;; (require 'ecb)

;; just-one-space                     M-SPC
;;   Command: Delete all spaces and tabs around point, leaving one space
;;   (or N spaces).
;; delete-horizontal-space             M-\
;; (delete-horizontal-space &optional backward-only)
;; Delete all spaces and tabs around point.

(defun try-complete-abbrev (old)
  (if (expand-abbrev) t nil))

(setq hippie-expand-try-functions-list
  '(try-complete-abbrev
    try-complete-file-name
    try-expand-dabbrev))


(require 'hippie-exp)

(setq hippie-expand-try-functions-list
      '(try-expand-dabbrev
        try-expand-dabbrev-all-buffers
        try-expand-dabbrev-from-kill
        try-complete-file-name-partially
        try-complete-file-name
        try-complete-lisp-symbol-partially
        try-complete-lisp-symbol
        try-expand-whole-kill))

(global-set-key (kbd "C-M-SPC") 'hippie-expand)

;; (require 'ibuffer)
(require 'psvn)
(require 'browse-kill-ring)
(browse-kill-ring-default-keybindings)

;; 
--------------------------------------------------------------------------------
;; TWiki
;; Add twiki outlining
;; (require 'twiki-outline)
;; (autoload 'twiki-outline-mode "twiki-outline-mode" "twiki editing mode." t)
;; (setq auto-mode-alist (cons '("twiki.diplan.de.*$" . twiki-outline-mode) 
auto-mode-alist))
(setq auto-mode-alist (cons '("\\.twiki$" . twiki-outline-mode) 
auto-mode-alist))

;; noch mehr twiki editieren-outlinen
(require 'erin)
;; 
--------------------------------------------------------------------------------

;; Editieren vonn Thunderbird Emails im Emacs, hier vor allem HTML Modus
;; (setq auto-mode-alist (cons '("\\.eml$" . sgml-mode) auto-mode-alist))
;; (setq auto-mode-alist (cons '("\\.eml$" . nxhtml-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.eml$" . text-mode) auto-mode-alist))

(autoload 'au3-mode "au3-mode" "au3 editing mode." t)
(setq auto-mode-alist (cons '("\\.au3$" . au3-mode) auto-mode-alist))

;; 
--------------------------------------------------------------------------------
;; Ruby
(autoload 'ruby-mode "ruby-mode"
      "Mode for editing ruby source files" t)
    (setq auto-mode-alist
          (append '(("\\.rb$" . ruby-mode)) auto-mode-alist))
    (setq interpreter-mode-alist (append '(("ruby" . ruby-mode))
                                     interpreter-mode-alist))

    (autoload 'run-ruby "inf-ruby"
      "Run an inferior Ruby process")
    (autoload 'inf-ruby-keys "inf-ruby"
      "Set local key defs for inf-ruby in ruby-mode")
    (add-hook 'ruby-mode-hook
          '(lambda ()
             (inf-ruby-keys)
    ))
;;(require 'ruby-electric)

(defun my-ruby-mode-hook ()
  (ruby-electric-mode)
  )

;; (add-hook 'ruby-mode-hook 'my-ruby-mode-hook)

;; (setq ri-ruby-script "~/.emacs.d/ri-emacs.rb")
;; (autoload 'ri "~/.emacs.d/ri-ruby.el" nil t)
;;
;;  You may want to bind the ri command to a key.
;;  For example to bind it to F1 in ruby-mode:
;;  Method/class completion is also available.
;;

;; (add-hook 'ruby-mode-hook (lambda ()
;;                          (local-set-key 'f1 'ri)
;;                          (local-set-key "\M-\C-i" 'ri-ruby-complete-symbol)
;;                          (local-set-key 'f4 'ri-ruby-show-args)
;;                          ))


;; 
--------------------------------------------------------------------------------
;; Rails
;; 
--------------------------------------------------------------------------------
(setq load-path (cons "~/.emacs.d/emacs-rails" load-path))

(defun try-complete-abbrev (old)
  (if (expand-abbrev) t nil))

(setq hippie-expand-try-functions-list
      '(try-complete-abbrev
        try-complete-file-name
        try-expand-dabbrev))

(require 'rails)

(setq rails-chm-file "full_path_to_rails_chm_manual")
;; 
--------------------------------------------------------------------------------

(define-key isearch-mode-map '[backspace] 'isearch-delete-char)

;; (when (fboundp 'windmove-default-keybindings)
;;       (windmove-default-keybindings))
;; (windmove-default-keybindings 'meta)

(require 'bs)
(global-set-key "\C-x\C-b" 'bs-show)

;; 
--------------------------------------------------------------------------------
;; dabbrev-expand is an interactive compiled Lisp function in `dabbrev.el'.
;; It is bound to M-/, M--.
;; (dabbrev-expand arg)

;; Expand previous word "dynamically".

;; Expands to the most recent, preceding word for which this is a prefix.
;; If no suitable preceding word is found, words following point are
;; considered.  If still no suitable word is found, then look in the
;; buffers accepted by the function pointed out by variable

(global-set-key "\M--" 'dabbrev-expand)
;; (global-set-key [M] "<ESC>")
;; 
--------------------------------------------------------------------------------


;; (global-set-key "\C-a" 'beginning-of-line)

;; When editing LISP code you will use these the 
forward/backward/transpose-sexp functions far more
often the the char versions, I'd suggest swapping them so that, for example, 
C-M-t (transpose-sexp)
is C-t and C-t (transpose-char) is C-M-t:
;; (define-key slime-mode-map (kbd "C-t") 'transpose-sexps)
;; (define-key slime-mode-map (kbd "C-M-t") 'transpose-chars)
;; (define-key slime-mode-map (kbd "C-b") 'backward-sexp)
;; (define-key slime-mode-map (kbd "C-M-b") 'backward-char)
;; (define-key slime-mode-map (kbd "C-f") 'forward-sexp)
;; (define-key slime-mode-map (kbd "C-M-f") 'forward-char)

(defun w32-browser (doc)
  "Browse to a particular file/URL using default web browser"
  (w32-shell-execute 1 doc))


;; fuehrt die Windows Anwendung aus, mit der das Dokument verknüpft ist - gute 
Funktion !!!
;; wer braucht noch Windows Explorer ?
(require 'dired+)
(eval-after-load "dired"
  '(define-key dired-mode-map [f12] (lambda ()
                                     (interactive)
                                     (w32-browser
                                      (dired-replace-in-string
                                       "/" "\\"
                                       (dired-get-filename))))))
(setq toggle-dired-find-file-reuse-dir 1)
(setq dired-recursive-deletes 'top)
;; see http://www.emacsblog.org/


(setq wget-command "C:/cygwin/bin/wget")
(setq load-path (cons "~/.emacs.d/emacs-wget-0.5.0" load-path))
(load "w3m-wget")
;; (setq wget-basic-options (cons "-equiet=off" wget-basic-options))
(autoload 'wget "wget" "wget interface for Emacs." t)
(autoload 'wget-web-page "wget" "wget interface to download whole web page." t)

(eval-after-load "outline" '(require 'foldout))

;; 
--------------------------------------------------------------------------------
;; abbrev mode
(setq-default abbrev-mode t)
(read-abbrev-file "~/.abbrev_defs")
(setq save-abbrevs t)
;; 
--------------------------------------------------------------------------------

;; 
--------------------------------------------------------------------------------
(local-set-key [(control s)] 'isearch-forward-regexp)
(local-set-key [(control r)] 'isearch-backward-regexp)

;; Always end searches at the beginning of the matching expression.
(add-hook 'isearch-mode-end-hook 'custom-goto-match-beginning)

(defun custom-goto-match-beginning ()
  "Use with isearch hook to end search at first char of match."
  (when isearch-forward (goto-char isearch-other-end)))
;; 
--------------------------------------------------------------------------------


;; 
--------------------------------------------------------------------------------
;; dired buffers
;; (dired "~/")
;; crash !!!
;; (dired "//max2")
;; (for alle verzeichnisse falls sie ex.)


;; M-F12 opens a buffer that contains the recent opened buffers
;;recentf
(require 'recentf)
(recentf-mode 1)
(setq recentf-max-saved-items 500)
(setq recentf-max-menu-items 60)
(global-set-key [(meta f12)] 'recentf-open-files)
;; solange C-F12 nicht anderweitig genutzt wird
(global-set-key [(control f12)] 'recentf-open-files)

(defun my-kill-buffer ()
  "Kill buffer, taking gnuclient into account."
  (interactive)
  (if (buffer-modified-p)
      (error "Buffer has unsaved changes")
    (if server-buffer-clients
 (server-edit)
      (kill-buffer (current-buffer)))))
;; (global-set-key [(control f4)] 'icicle-kill-buffer)
;; (global-set-key [(meta f4)] 'icicle-kill-buffer)
(global-set-key [(meta f4)] 'my-kill-buffer)
; as long as ctrl-f4 is not needed somwhere else ...
(global-set-key [(control f4)] 'my-kill-buffer)


;; invoke buffer-list with F11
(global-set-key [(control f11)] 'bs-show)

;; Anm.: Das beißt sich mit M-F12
;; ;; Bind M-F11 to a function that uses ido on the recently opened files
;; (defun xsteve-ido-choose-from-recentf ()
;;   "Use ido to select a recently opened file from the `recentf-list'"
;;   (interactive)
;;   (let ((home (expand-file-name (getenv "HOME"))))
;;     (find-file
;;      (ido-completing-read "Recentf open: "
;;                        (mapcar (lambda (path)
;;                                     (replace-regexp-in-string home "~" path))
;;                                   recentf-list)
;;                           nil t))))
;; (global-set-key [(meta f11)] 'xsteve-ido-choose-from-recentf)

(when (require 'bubble-buffer nil t)
  (global-set-key [f11] 'bubble-buffer-next)
  (global-set-key [(shift f11)] 'bubble-buffer-previous))
(setq bs--show-all t)
(setq bubble-buffer-omit-regexp "\\(^
.+$\\|\\*Messages\\*\\|*compilation\\*\\|\\*.+output\\*$\\|\\*TeX
Help\\*$\\|\\*vc-diff\\*\\|\\*Occur\\*\\|\\*grep\\*\\|\\*cvs-diff\\*\\)")

;; 
--------------------------------------------------------------------------------
;; my bindings
;;
;; nononononononono: machen wir nix M-F11    xsteve-ido-choose-from-recentf
;; C-F11    buffer-list
;;
;; M-F12    recentf-open-files
;; C-F12    recentf-open-files
;;
;;   F11    bubble-buffer-next
;; S-F11    bubble-buffer-previous
;;
;; C-F4     my-kill-buffer
;; 
--------------------------------------------------------------------------------
;; some docs or notes
;;
;; in windows explorer right click on folder to start dired in emacs with 
folder:
;; REGEDIT4
;;
;; [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\Dired\command]
;; @="C:\\Programme\\Emacs\\EmacsW32\\e.cmd \"%L\""
;; 
--------------------------------------------------------------------------------
;;
;; 
--------------------------------------------------------------------------------

;; disable the menu-bar
;; Use C-mouse-3 to pop up the entire menu-bar as a popup menu.
;; (menu-bar-mode -99)
(menu-bar-mode 1)

(setq x system-name)

;; Optionen diplan oder zuhause
(defvar arbeitsverzeichnis_diplan "c:/Dokumente und 
Einstellungen/rainer.Diplan/Eigene
Dateien/Arbeitsverzeichnis")
(defvar arbeitsverzeichnis_home   "c:/Dokumente und Einstellungen/rainer/Eigene
Dateien/Arbeitsverzeichnis")
(defvar dired_dirs)

(cond ((equal system-name "FELIX")
       (setq dired_dirs (list "~/" "c:/Programme/" "c:/" 
arbeitsverzeichnis_home)))
      ((or (equal system-name "NEHEMIA")
           (equal system-name "GRIMLI"))
       (setq dired_dirs
             (list "~/" "c:/Programme/" "b:/" "c:/" "p:/Administration" "l:/cd" 
"n:/" "t:/" "u:/"
"x:" arbeitsverzeichnis_diplan)))
      (t (setq dired_dirs (list "c:/" "c:/Dokumente und Einstellungen/"))))

(dolist (mydir dired_dirs)
  (if (file-exists-p mydir)
      (dired mydir)))

(setq load-path (cons "C:/Programme/Emacs/site-lisp/w3m" load-path))
;;  % emacs -batch -q -no-site-file -l w3mhack.el NONE -f 
w3mhack-nonunix-install
(setq w3m-command "c:/cygwin/bin/w3m.exe")
(require 'w3m)

;; http://geosoft.no/development/emacs.html
;; doesnt work?
(defun geosoft-parse-minibuffer ()
  ;; Extension to the complete word facility of the minibuffer
  (interactive)
  (backward-char 4)
  (setq found t)
  (cond
                                        ; local directories
   ((looking-at "eigene") (setq directory "c:/Dokumente und 
Einstellungen/rainer/"))
   ((looking-at ".doc") (setq directory "c:/users/john/documents/"))
   ((looking-at "java") (setq directory "c:/users/john/src/java/"))
   (t (setq found nil)))
  (cond (found (beginning-of-line)
               (kill-line)
               (insert directory))
        (t     (forward-char 4)
               (minibuffer-complete))))

;; The function is made an extension to the minibuffer complete-word function 
by:
(define-key minibuffer-local-completion-map " " 'geosoft-parse-minibuffer)

;; (load "c:/Programme/Emacs/EmacsW32/nxml/autostart.el")

;; show calendar week
(require 'calendar-hack)

(require 'palette)

;; backup of files in single special backup directory! !!
(defconst use-backup-dir t)
(setq backup-directory-alist (quote ((".*" . "~/backup/temp/")))
      version-control t                ; Use version numbers for backups
      kept-new-versions 16             ; Number of newest versions to keep
      kept-old-versions 2              ; Number of oldest versions to keep
      delete-old-versions t            ; Ask to delete excess backup versions?
      backup-by-copying-when-linked t) ; Copy linked files, don't rename.

;; moving lines up and down
;; 
------------------------------------------------------------------------------
(defun move-line (&optional n)
  "Move current line N (1) lines up/down leaving point in place."
  (interactive "p")
  (when (null n)
    (setq n 1))
  (let ((col (current-column)))
    (beginning-of-line)
    (next-line 1)
    (transpose-lines n)
    (previous-line 1)
    (forward-char col)))

(defun move-line-up (n)
  "Moves current line N (1) lines up leaving point in place."
  (interactive "p")
  (move-line (if (null n) -1 (- n))))

(defun move-line-down (n)
  "Moves current line N (1) lines down leaving point in place."
  (interactive "p")
  (move-line (if (null n) 1 n)))
(global-set-key [(meta down)] 'move-line-down)
(global-set-key [(meta up)] 'move-line-up)

;; 
------------------------------------------------------------------------------

;; "focus follows mouse" in emacs windows
;; (setq mouse-autoselect-window t)

;; net so doll
;; (autoload 'textmenu "textmenu" "Text mode substitute for menubar" t)
;; (global-set-key [f10] 'textmenu)
;; 
------------------------------------------------------------------------------

;; 
------------------------------------------------------------------------------
;; Wanderlust
(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
;; 
------------------------------------------------------------------------------


;; Desktop Saving/Loading
(load "desktop")
(setq desktop-globals-to-save
      (append '((extended-command-history . 30)
                (file-name-history        . 100)
                (grep-history             . 30)
                (compile-history          . 30)
                (minibuffer-history       . 50)
                (query-replace-history    . 60)
                (read-expression-history  . 60)
                (regexp-history           . 60)
                (regexp-search-ring       . 20)
                (search-ring              . 20)
                (shell-command-history    . 50)
                tags-file-name
                register-alist)))
(desktop-load-default)
     (desktop-read)


;; 
------------------------------------------------------------------------------
;; call this at last, do not add stuff beyond
;;(require 'icicles) ; Load this library.
;;(icicle-mode 1)    ; Turn on Icicle mode.
;; 
------------------------------------------------------------------------------
;;
;; 
------------------------------------------------------------------------------