From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: rst Newsgroups: gmane.emacs.help Subject: emacs w32 menu disapprears after clicking item Date: Wed, 18 Apr 2007 08:50:26 +0200 Organization: ODN Onlinedienst Nordbayern GmbH -- http://www.odn.de/ Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit X-Trace: sea.gmane.org 1176881752 2874 80.91.229.12 (18 Apr 2007 07:35:52 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 18 Apr 2007 07:35:52 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Apr 18 09:35:41 2007 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1He4hX-0007wz-7D for geh-help-gnu-emacs@m.gmane.org; Wed, 18 Apr 2007 09:35:40 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1He4mK-0005Ra-Bu for geh-help-gnu-emacs@m.gmane.org; Wed, 18 Apr 2007 03:40:36 -0400 Original-Path: shelby.stanford.edu!headwall.stanford.edu!newshub.sdsu.edu!multikabel.net!feed20.multikabel.net!news2.euro.net!amsnews11.chello.com!newsfeed01.chello.at!newsfeed.arcor.de!noris.net!news.odn.de!not-for-mail User-Agent: Thunderbird 2.0.0.0pre (Windows/20070401) Original-Newsgroups: gnu.emacs.help Original-Lines: 530 Original-NNTP-Posting-Host: 212.34.176.74 Original-X-Complaints-To: news@odn.de Original-X-Trace: news.odn.de 1176879026 212.34.176.74 (Wed, 18 Apr 2007 08:50:26 MEST) Original-NNTP-Posting-Date: Wed, 18 Apr 2007 08:50:26 MEST Original-Xref: shelby.stanford.edu gnu.emacs.help:147178 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:42782 Archived-At: 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] "") ;; -------------------------------------------------------------------------------- ;; (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. ;; ------------------------------------------------------------------------------ ;; ;; ------------------------------------------------------------------------------