Dear all,

after a Fink update a few days ago I have noticed a strange behaviour of 
Emacs(*). The list of buffers in the Buffers menu is always empty except 
for *scratch*, *messages* and *warnings*. Opened files can still be 
selected by "List all buffers" and by manual switching to a known buffer.

(*) GNU Emacs 23.1.1 (i386-apple-darwin9.8.0, GTK+ Version 2.16.6), 
OS-X 10.5.8 Intel

After commenting-out the second last macro in my .emacs file 
("Experimental script for inhibiting some nasty default-behaviour of 
Emacs") and relaunch the buffer list re-appeared, but remains static (i.e. 
always shows the initially active buffer on top, even if another is 
subsequently selected).

Does anyone know this problem and a possible solution (except for a 
complete re-installation of at least emacs...)?


Here is my .emacs file (it has not been changed for month, so it had 
worked properly until a few days ago):

(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.
  '(blink-cursor-mode nil)
  '(bs-max-window-height 20)
  '(column-number-mode t)
  '(current-language-environment "English")
  '(delete-selection-mode t nil (delsel))
  '(fortran-continuation-string "&")
  '(global-font-lock-mode t nil (font-lock))
  '(inhibit-default-init t)
  '(inhibit-startup-buffer-menu t)
  '(inhibit-startup-echo-area-message nil)
  '(inhibit-startup-screen t)
  '(initial-scratch-message nil)
  '(mouse-wheel-mode t nil (mwheel))
  '(pop-up-windows nil)
  '(show-paren-mode t nil (paren))
  '(track-eol t)
  '(truncate-lines t)
  '(use-file-dialog nil)
  '(x-gtk-show-hidden-files t)
  '(x-gtk-use-old-file-dialog t)
  '(x-select-enable-clipboard t))
  ;; '(load ".calc.el")
(add-hook 'calc-mode-hook
           (function (lambda ()
                       (load "~/.calc.el"))))

(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.
  '(default ((t (:inherit nil :stipple nil :background "white" :foreground 
"black" :inverse-video nil :box nil :strike-through nil :overline nil 
:underline nil :slant normal :weight normal :height 98 :width normal 
:foundry "bitstream" :family "Bitstream Vera Sans Mono")))))

(setq auto-mode-alist (append '(
                                 ("\\.sec$" . LaTeX-mode)
                                 ("\\.bib$" . indented-text-mode)
                                 ("\\.F90$" . f90-mode)
                                 ("\\.for$" . fortran-mode)
                                 ("\\.fortran$" . fortran-mode)
                                 ("\\.f$" . fortran-mode)
                                 ("\\.F$" . fortran-mode)
                                 ("\\.FOR$" . fortran-mode)
                                 ("\\.FORTRAN$" . fortran-mode)
                                ("\\.f77" . fortran-mode)
                                ("\\.F77" . fortran-mode)
                                 ("\\.vf$" . fortran-mode)
                                 ) auto-mode-alist))

(setq x-select-enable-clipboard t) ; as above
(setq interprogram-paste-function 'x-cut-buffer-or-selection-value)

;; inhibit split-screen on startup
(add-hook 'emacs-startup-hook 'delete-other-windows)

;;### Experimental script for inhibiting some nasty
;;### default-behaviour of Emacs 
(defun my-dired-mouse-find-file-same-window (event)
   (interactive "e")
   (let (window pos file)
     (save-excursion
       (setq window (posn-window (event-end event))
            pos (posn-point (event-end event)))
       (if (not (windowp window))
          (error "No file chosen"))
       (set-buffer (window-buffer window))
       (goto-char pos)
       (setq file (dired-get-file-for-visit)))
     (if (file-directory-p file)
        (or (and (cdr dired-subdir-alist)
                 (dired-goto-subdir file))
            (progn
              (select-window window)
              (dired-other-window file)))
              (dired file)))
       (select-window window)
       (find-file (file-name-sans-versions file t)))))

(global-set-key [mouse-2] 'dired-mouse-find-file-same-window)
(add-hook 'dired-mode-hook
          (lambda ()
            (local-set-key [mouse-2] 
'my-dired-mouse-find-file-same-window)))


Best wishes,

Ingo
-- 
==========================================
Ingo Thies
Argelander-Institut fuer Astronomie (AIfA)
Sternwarte, University of Bonn
Auf dem Huegel 71, D-53121 Bonn, Germany
Tel : +49 (0)228 73-3659
Mail: [email protected]

------------------------------------------------------------------------------
Download Intel® Parallel Studio Eval
Try the new software tools for yourself. Speed compiling, find bugs
proactively, and fine-tune applications for parallel performance.
See why Intel Parallel Studio got high marks during beta.
http://p.sf.net/sfu/intel-sw-dev
_______________________________________________
Fink-beginners mailing list
[email protected]
http://news.gmane.org/gmane.os.apple.fink.beginners

Reply via email to