Changeset 12230


Ignore:
Timestamp:
Jun 8, 2009, 8:09:18 AM (10 years ago)
Author:
gb
Message:

Backup files have tilde after path now (as in Emacs.)

If grep exits with code 1, report that as "pattern not found", not
as "mystery error".

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-grep.lisp

    r8428 r12230  
    6565(defvar *grep-ignore-case* t)
    6666(defvar *grep-include-pattern* "*.lisp")
    67 (defvar *grep-exclude-pattern* "*~.lisp")
     67(defvar *grep-exclude-pattern* "*.lisp~")
    6868
    6969(defun grep (pattern directory &key (ignore-case *grep-ignore-case*)
     
    9494                               :display #'princ
    9595                               :title (format nil "~a in ~a" pattern directory)))
    96               (hi:editor-error "Error in grep status ~s code ~s: ~a" status exit-code output)))))))
     96            (if (and (eql status :exited)
     97                     (eql exit-code 1))
     98              (hi:editor-error "Pattern ~s not found" pattern)
     99              (hi:editor-error "Error in grep status ~s code ~s: ~a" status exit-code output))))))))
    97100
    98101
Note: See TracChangeset for help on using the changeset viewer.