Custom Query (1030 matches)

Currently we have both m-x grep and Search Files menu item. It's fine to have the two ways to request this, but there is no reason why they should present their results in gratuitously different ways. M-x grep should be changed to present the output in a Search Files dialog (i.e. as if the user filled in all the fields in Search files and already hit Search once).

Currently *wrap-lines-to-window* is a global preference that only takes effect when new windows are opened. We need a way to dynamically change this value on a per-window basis (on windows that have already been opened) with a menu item and command-key equivalent.

We should probably keep the global preference as it serves as a default. But it needs to be possible to change this flag dynamically on windows that are already open.

Fred had this capability and it was useful, and we need it in the CCL IDE.

OPEN, PROBE-FILE, etc doesn't take into account *default-pathname-defaults* when given a pathname or a name string containing only a file name and type, in the versions:

"Version 1.9-r15757 (LinuxX8664)" "Version 1.9-r15759 (DarwinX8664)" (both from svn).

It works correctly in:

"Version 1.9 (DarwinX8664)" (from MacPort)

But I don't know if that version is anterior or posterior to "Version 1.9-r15759 (DarwinX8664)".

Minimal code:

(let ((dir (format nil "/tmp/dir~36,8R/" (random (expt 36 8)))))
  (ensure-directories-exist (merge-pathnames #P"TEST" dir))
  (let ((p1 (format nil "~Aexample.txt" dir)))
    (with-open-file (out (pathname p1) 
                         :direction :output
                         :if-does-not-exist :create)
      (princ 'hello out) (terpri out))
    
    (list
     (lisp-implementation-type) (lisp-implementation-version)
     '---
     (let ((*default-pathname-defaults* #P""))
       (probe-file p1))
     (let ((*default-pathname-defaults* #P""))
       (probe-file (pathname p1)))
     '---
     (let ((*default-pathname-defaults* dir))
       (probe-file p1))
     (let ((*default-pathname-defaults* dir))
       (probe-file (pathname p1)))
     (let ((*default-pathname-defaults* (pathname dir)))
       (probe-file p1))
     (let ((*default-pathname-defaults* (pathname dir)))
       (probe-file (pathname p1)))
     '---
     (let ((*default-pathname-defaults* dir))
       (probe-file "example.txt"))
     (let ((*default-pathname-defaults* dir))
       (probe-file (pathname "example.txt")))
     (let ((*default-pathname-defaults* (pathname dir)))
       (probe-file "example.txt"))
     (let ((*default-pathname-defaults* (pathname dir)))
       (probe-file (pathname "example.txt"))))))

Results:

("Clozure Common Lisp" "Version 1.9-r15757  (LinuxX8664)" --- #P"/tmp/dirGYSY3UZ5/example.txt" #P"/tmp/dirGYSY3UZ5/example.txt" --- #P"/tmp/dirGYSY3UZ5/example.txt" #P"/tmp/dirGYSY3UZ5/example.txt" #P"/tmp/dirGYSY3UZ5/example.txt" #P"/tmp/dirGYSY3UZ5/example.txt" --- NIL NIL NIL NIL) 
("Clozure Common Lisp" "Version 1.9-r15759  (DarwinX8664)" --- #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" --- #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" --- NIL NIL NIL NIL) 
("Clozure Common Lisp" "Version 1.6-r14468M  (DarwinPPC32)" --- #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt" --- #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt" --- #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt" #P"/private/tmp/dir8C3D4P75/example.txt") 
("Clozure Common Lisp" "Version 1.9  (DarwinX8664)" --- #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" --- #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" --- #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt" #P"/private/tmp/dirGYSY3UZ5/example.txt")