[PATCH] find-grep alias needs quoting

Without these quotes, I get the following error when compiling browse-url.el: Compiling /ide/build/xemacs-packages-2005-03-04/xemacs-packages/mail-lib/browse-url.el... While compiling toplevel forms in file /ide/build/xemacs-packages-2005-03-04/xemacs-packages/mail-lib/browse-url.el: !! Symbol's value as variable is void ((find-grep)) backtrace(nil t) # bind (error-info) byte-compile-report-error((void-variable find-grep)) # bind (error-info) #<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2>((void-variable find-grep)) (defalias find-grep grep-find) # bind (current-load-list) # (unwind-protect ...) # bind (load-file-name) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load-internal("compile" nil t nil nil nil) # bind (nosuffix nomessage noerror file) load("compile" nil t nil) # (unwind-protect ...) require(compile) (progn (require (quote compile))) eval((progn (require (quote compile)))) # bind (sym def G75823) # (unwind-protect ...) # bind (save-macro-environment form) byte-compile-eval((progn (require (quote compile)))) (list (quote quote) (byte-compile-eval (cons ... body))) # bind (body) (lambda (&rest body) (list (quote quote) (byte-compile-eval ...)))((require (quote compile))) (eval-when-compile (require (quote compile))) # bind (current-load-list) # (unwind-protect ...) # bind (load-file-name) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load-internal("executable" nil t nil nil nil) # bind (nosuffix nomessage noerror file) load("executable" nil t nil) # (unwind-protect ...) require(executable) (progn (require (quote thingatpt)) (require (quote term)) (require (quote executable))) eval((progn (require (quote thingatpt)) (require (quote term)) (require (quote executable)))) # bind (sym def G75823) # (unwind-protect ...) # bind (save-macro-environment form) byte-compile-eval((progn (require (quote thingatpt)) (require (quote term)) (require (quote executable)))) (list (quote quote) (byte-compile-eval (cons ... body))) # bind (body) (lambda (&rest body) (list (quote quote) (byte-compile-eval ...)))((require (quote thingatpt)) (require (quote term)) (require (quote executable))) #<subr macroexpand-internal>((eval-when-compile (require (quote thingatpt)) (require (quote term)) (require (quote executable))) ((byte-compiler-options lambda (&rest forms) (apply ... forms)) (eval-when-compile lambda (&rest body) (list ... ...)) (eval-and-compile lambda (&rest body) (byte-compile-eval ...) (cons ... body)))) # bind (cl-macro-environment cl-env cl-macro) macroexpand((eval-when-compile (require (quote thingatpt)) (require (quote term)) (require (quote executable))) ((byte-compiler-options lambda (&rest forms) (apply ... forms)) (eval-when-compile lambda (&rest body) (list ... ...)) (eval-and-compile lambda (&rest body) (byte-compile-eval ...) (cons ... body)))) # bind (byte-compile-current-form handler form) byte-compile-file-form((eval-when-compile (require (quote thingatpt)) (require (quote term)) (require (quote executable)))) # (unwind-protect ...) #<compiled-function nil "...(43)" [byte-compile-unresolved-functions byte-compile-inbuffer 1 " \n" nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-warn-about-unresolved-functions] 3>() # (unwind-protect ...) call-with-condition-handler(#<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2> #<compiled-function nil "...(43)" [byte-compile-unresolved-functions byte-compile-inbuffer 1 " \n" nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-warn-about-unresolved-functions] 3>) # (unwind-protect ...) # bind (byte-compile-warnings-beginning byte-compile-point-max-prev byte-compile-log-buffer byte-compile-macro-environment byte-compile-function-environment byte-compile-autoload-environment byte-compile-unresolved-functions byte-compile-bound-variables byte-compile-free-references byte-compile-free-assignments byte-compile-verbose byte-optimize byte-compile-emacs19-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-warnings byte-compile-file-domain byte-compile-outbuffer float-output-format case-fold-search print-length print-level byte-compile-constants byte-compile-variables byte-compile-tag-number byte-compile-depth byte-compile-maxdepth byte-compile-output eval filename byte-compile-inbuffer) byte-compile-from-buffer(#<buffer " *Compiler Input*"> "/ide/build/xemacs-packages-2005-03-04/xemacs-packages/mail-lib/browse-url.el") # bind (byte-compile-current-file target-file input-buffer output-buffer byte-compile-dest-file load filename) byte-compile-file("browse-url.el") byte-code("..." [file byte-compile-file t] 2) # (condition-case ... . ((error (byte-code "ÂÃ!ˆÂ!ˆÂÄ!ˆÅÆ!«‡Æ Ç\"ˆª‘ ＠ÈN®‚ ＠!ˆÉÊ A\"ˆÂË!ˆÇ‡" ... 3)))) # bind (file) batch-byte-compile-1("browse-url.el") # bind (error file-to-process) batch-byte-compile-one-file() # bind (error) batch-byte-compile() # bind (arg) command-line-do-funcall("-f") # bind (dir file-count line end-of-options file-p arg tem) command-line-1() # bind (command-line-args-left) command-line() # (condition-case ... . ((t (byte-code " ‡" ... 1)))) # bind (error-data) normal-top-level() # (condition-case ... . error) # (catch top-level ...) Symbol's value as variable is void: find-grep xemacs-packages/xemacs-base/ChangeLog addition: 2005-03-04 Vin Shelton <acs(a)xemacs.org&gt; * compile.el (find-grep): Aliases need to be quoted, apparently. packages source patch: Diff command: cvs -q diff -u Files affected: xemacs-packages/xemacs-base/compile.el Index: xemacs-packages/xemacs-base/compile.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/compile.el,v retrieving revision 1.33 diff -a -u -u -r1.33 compile.el --- xemacs-packages/xemacs-base/compile.el 2005/03/04 19:38:35 1.33 +++ xemacs-packages/xemacs-base/compile.el 2005/03/05 04:15:50 ＠＠ -769,7 +769,7 ＠＠ (grep command-args))) ;; XEmacs addition -(defalias find-grep grep-find) +(defalias 'find-grep 'grep-find) ;; XEmacs addition: all grep-all-files stuff