address@hidden: find-dired output isn't fully propertized]

[Richard Stallman]

Would someone please install this (trunk and branch) and ack?

------- Start of forwarded message -------
X-Spam-Status: No, score=0.0 required=5.0 tests=UNPARSEABLE_RELAY 
        autolearn=failed version=3.1.0
To: address@hidden
From: Stephen Berman <address@hidden>
Date: Thu, 26 Apr 2007 23:01:37 +0200
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Subject: find-dired output isn't fully propertized

1. emacs -Q
2. M-x find-dired RET <path/to/emacs/sources/> RET -name "*src"
3. The buffer *Find* contains this:
,----
|   <path/to/emacs/sources/>:
|   find . \( -name "*src" \) -exec ls -ld \{\} \;
|   drwxr-xr-x 2 steve users 4096 2007-04-26 17:43 lib-src
|   drwxr-xr-x 2 steve users 4096 2007-04-26 20:17 src
|   
|   find finished at Thu Apr 26 20:38:37
`----
In this dired listing, moving the mouse over `lib-src' displays
mouse-face highlighting and a tooltip, but moving the mouse over src
does not.

If step 2 above is replaced by the following:

   M-x find-dired RET <path/to/emacs/sources/> RET -name "Make*"

the output is a dired listing of all the Makefiles in the Emacs source
tree, plus Makefile.c files.  In this listing moving the mouse the
last N file names fails to show mouse-face highlighting and a tooltip,
where N can be anywhere from 1 to all but the first dired entry;
repeating this find-dired invocation doesn't always yield the same
number, except that at least the last dired entry is not propertized.
In particular, if the output of find-dired is just a single dired
entry (e.g., with `M-x find-dired RET <path/to/emacs/sources/> RET
- -name lisp') , then it lacks mouse-face and tooltip.

The following patch fixes this bug, AFAICT:

*** find-dired.el.~1.55.~       2007-01-21 23:44:41.000000000 +0100
- --- find-dired.el             2007-04-26 21:51:25.000000000 +0200
***************
*** 257,263 ****
                  (delete-region (point) (- (point) 2)))
                ;; Find all the complete lines in the unprocessed
                ;; output and process it to add text properties.
!               (goto-char end)
                (if (search-backward "\n" (process-mark proc) t)
                    (progn
                      (dired-insert-set-properties (process-mark proc)
- --- 257,263 ----
                  (delete-region (point) (- (point) 2)))
                ;; Find all the complete lines in the unprocessed
                ;; output and process it to add text properties.
!               (goto-char (point-max))
                (if (search-backward "\n" (process-mark proc) t)
                    (progn
                      (dired-insert-set-properties (process-mark proc)



In GNU Emacs 22.0.98.2 (i686-pc-linux-gnu, GTK+ Version 2.10.6)
 of 2007-04-20 on escher
Windowing system distributor `The X.Org Foundation', version 11.0.70199902
configured using `configure  '--with-x-toolkit=gtk''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  shell-dirtrack-mode: t
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: identity

Recent input:
i r e d - m o d e <return> <help-echo> C-x b <return> 
<down-mouse-1> <mouse-1> C-h f <return> C-x o <tab> 
<return> C-x 1 <down-mouse-4> <mouse-4> <double-down-mouse-4> 
<double-mouse-4> <triple-down-mouse-4> <triple-mouse-4> 
M-x <up> <return> <up> <return> <return> <help-echo> 
C-x k <return> <down-mouse-1> <mouse-1> C-u C-M-x M-x 
<up> <return> <up> <return> <return> SPC SPC SPC SPC 
SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC 
SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC 
SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC 
SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC 
SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC 
SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC 
SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC SPC 
SPC SPC SPC SPC SPC <help-echo> <help-echo> <help-echo> 
<help-echo> SPC SPC SPC SPC C-x k <return> M-x <up> 
<return> <up> <return> <return> <help-echo> <down-mouse-5> 
<mouse-5> C-x 1 <down-mouse-5> <mouse-5> <down-mouse-5> 
<mouse-5> <down-mouse-1> <mouse-1> C-s C-w C-w C-w 
C-r C-r C-r C-r <down-mouse-1> <mouse-1> <down-mouse-4> 
<mouse-4> C-x b <return> C-x b <return> SPC f f f <help-echo> 
SPC SPC C-x k <return> <down-mouse-5> <mouse-5> <double-down-mouse-5> 
<double-mouse-5> <down-mouse-1> <mouse-1> C-h f <return> 
C-x 1 <help-echo> <down-mouse-4> <mouse-4> <double-down-mouse-4> 
<double-mouse-4> <down-mouse-4> <mouse-4> <down-mouse-4> 
<mouse-4> <down-mouse-4> <mouse-4> <double-down-mouse-4> 
<double-mouse-4> <down-mouse-4> <mouse-4> <down-mouse-4> 
<mouse-4> <down-mouse-4> <mouse-4> <double-down-mouse-4> 
<double-mouse-4> <down-mouse-4> <mouse-4> <double-down-mouse-4> 
<double-mouse-4> <triple-down-mouse-4> <triple-mouse-4> 
<triple-down-mouse-4> <triple-mouse-4> <down-mouse-5> 
<mouse-5> <down-mouse-4> <mouse-4> <double-down-mouse-4> 
<double-mouse-4> <triple-down-mouse-4> <triple-mouse-4> 
<triple-down-mouse-4> <triple-mouse-4> <down-mouse-4> 
<mouse-4> <down-mouse-5> <mouse-5> <down-mouse-5> <mouse-5> 
<double-down-mouse-5> <double-mouse-5> C-s p r o c 
C-s <down> C-x b <return> <help-echo> <down-mouse-1> 
<mouse-2> <help-echo> <down-mouse-1> <mouse-2> <help-echo> 
C-x b <return> <help-echo> <down-mouse-1> <mouse-movement> 
<drag-mouse-1> <down-mouse-1> <mouse-1> M-x r e p o 
<tab> r <tab> <return>

Recent messages:
Go...
Break [2 times]
Breakpoint set in find-dired-filter
Go...
Break
Result: #<marker at 161 in *Find*> [2 times]
Type C-x 1 to remove help window.  
Mark saved where search started
Making completion list...
Loading emacsbug...done


_______________________________________________
emacs-pretest-bug mailing list
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
------- End of forwarded message -------