From 02bb2aabefbfe0055424511f0298712b7c716d5c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 20 Sep 2006 17:35:01 +0000 Subject: [PATCH] (find-buffer-visiting): Don't get fooled by a nil inode. --- lisp/ChangeLog | 13 ++++++++----- lisp/files.el | 2 +- 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ad33617e8f8..c20774d995d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-09-20 Stefan Monnier + + * files.el (find-buffer-visiting): Don't get fooled by a nil inode. + 2006-09-20 Kim F. Storm * simple.el (line-move-partial): Call pos-visible-in-window-p with @@ -13,7 +17,7 @@ * mouse.el (mouse-posn-property): Improve doc string. (mouse-on-link-p): Change buffers for function calls on links. - * menu-bar.el (clipboard-yank): bomb out in interactive use if + * menu-bar.el (clipboard-yank): Bomb out in interactive use if buffer is read-only. 2006-09-18 Ken Manheimer @@ -27,16 +31,15 @@ rather than allout-exposure-changed-hook, as a stronger assertion. (allout-keybindings-list): Add bindings for allout-copy-line-as-kill and allout-copy-topic-as-kill. - (allout-copy-line-as-kill, allout-copy-topic-as-kill): copy - wrappers for allout-kill-line and allout-kill-topic. + (allout-copy-line-as-kill, allout-copy-topic-as-kill): + Copy wrappers for allout-kill-line and allout-kill-topic. (allout-listify-exposed): Position correctly to accumulate lines. 2006-09-19 Chong Yidong * simple.el (line-move-1): Escape field boundaries occurring exactly at point. Update goal column if constrained to a field. - (line-move-finish): Escape field boundaries occurring exactly at - point. + (line-move-finish): Escape field boundaries occurring exactly at point. 2006-09-19 Stefan Monnier diff --git a/lisp/files.el b/lisp/files.el index 642bd2d9372..13fdf0d020b 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1365,7 +1365,7 @@ If there is no such live buffer, return nil." (number (nthcdr 10 attributes)) (list (buffer-list)) found) (and buffer-file-numbers-unique - number + (car-safe number) ;Make sure the inode is not just nil. (while (and (not found) list) (with-current-buffer (car list) (if (and buffer-file-name -- 2.11.4.GIT