# HG changeset patch # User Stefan Monnier # Date 1158773701 0 # Node ID 23ae8f38f0903e04341ca25042ec247608bc708a # Parent 6ee678242fc303abb4c3f927755e20a392700efc (find-buffer-visiting): Don't get fooled by a nil inode. diff -r 6ee678242fc3 -r 23ae8f38f090 lisp/ChangeLog --- a/lisp/ChangeLog Wed Sep 20 12:39:11 2006 +0000 +++ b/lisp/ChangeLog Wed Sep 20 17:35:01 2006 +0000 @@ -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 -r 6ee678242fc3 -r 23ae8f38f090 lisp/files.el --- a/lisp/files.el Wed Sep 20 12:39:11 2006 +0000 +++ b/lisp/files.el Wed Sep 20 17:35:01 2006 +0000 @@ -1365,7 +1365,7 @@ (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