(byte-optimize-featurep): Fix paren typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3651264b281b09142cbc673e5f03a6bf6b8f52bc..ea696bf935804cb69a53ad37c1bfc10c98c0e324 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,15 +1,19 @@
+2007-10-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/byte-opt.el (byte-optimize-featurep): Fix paren typo.
+
 2007-10-21  Dan Nicolaescu  <dann@ics.uci.edu>
 
-       * w32-fns.el (w32-quote-process-args): 
+       * w32-fns.el (w32-quote-process-args):
        * dos-w32.el (print-region-function, lpr-headers-switches)
        (ps-print-region-function): Pacify byte-compiler.
 
        * emulation/edt-mapper.el (function-key-map):
-       (edt-map-key): Make it a function instead of using fset. Inline
-       edt-gnu-map-key and edt-lucid-map-key. Use featurep 'xemacs.
+       (edt-map-key): Make it a function instead of using fset.
+       Inline edt-gnu-map-key and edt-lucid-map-key.  Use featurep 'xemacs.
        (edt-gnu-map-key, edt-lucid-map-key): Remove.
        (edt-x-emacs-p): Remove.
-       (edt-emacs-variant, edt-window-system, edt-xserver): 
+       (edt-emacs-variant, edt-window-system, edt-xserver):
        Use featurep 'xemacs.
 
        * net/eudc.el: Use (featurep 'xemacs) instead of the string test.
@@ -22,20 +26,18 @@
        * net/eudc-bob.el (eudc-bob-generic-menu, eudc-bob-mail-keymap)
        (eudc-bob-url-keymap, eudc-bob-sound-keymap)
        (eudc-bob-generic-keymap, eudc-bob-popup-menu)
-       (eudc-bob-toggle-inline-display): 
-       * net/eudc-hotlist.el (eudc-hotlist-emacs-menu): Replace
-       eudc-emacs-p and eudc-xemacs-p with feature tests.
+       (eudc-bob-toggle-inline-display):
+       * net/eudc-hotlist.el (eudc-hotlist-emacs-menu):
+       Replace eudc-emacs-p and eudc-xemacs-p with feature tests.
 
-       * net/eudcb-ph.el (eudc-ph-open-session): Replace
-       eudc-xemacs-mule-p with its former definition.
+       * net/eudcb-ph.el (eudc-ph-open-session):
+       Replace eudc-xemacs-mule-p with its former definition.
 
        * progmodes/octave-mod.el (octave-xemacs-p): Remove.
-       (octave-abbrev-start): Replace octave-xemacs-p with 
-       (featurep 'xemacs).
+       (octave-abbrev-start): Replace octave-xemacs-p with (featurep 'xemacs).
 
-       * progmodes/vera-mode.el (vera-xemacs): Remove. 
-       (vera-mode-syntax-table): Replace vera-xemacs with 
-       (featurep 'xemacs).
+       * progmodes/vera-mode.el (vera-xemacs): Remove.
+       (vera-mode-syntax-table): Replace vera-xemacs with (featurep 'xemacs).
 
        * progmodes/vhdl-mode.el (vhdl-xemacs): Remove.
        (vhdl-doc-mode, vhdl-doc-variable, vhdl-compile-init)
@@ -45,25 +47,24 @@
        with (featurep 'xemacs).
 
        * progmodes/antlr-mode.el (cond-emacs-xemacs-macfn, defunx)
-       (save-buffer-state-x): 
-       * obsolete/fast-lock.el (fast-lock-verbose): 
+       (save-buffer-state-x):
+       * obsolete/fast-lock.el (fast-lock-verbose):
        * emulation/viper-init.el (viper-xemacs-p)
-       (viper-cond-compile-for-xemacs-or-emacs): 
-       * emacs-lisp/checkdoc.el (checkdoc-minor-mode-map): 
-       * ps-print.el (case-fold-search): 
-       * ediff-hook.el (ediff-cond-compile-for-xemacs-or-emacs): 
+       (viper-cond-compile-for-xemacs-or-emacs):
+       * emacs-lisp/checkdoc.el (checkdoc-minor-mode-map):
+       * ps-print.el (case-fold-search):
+       * ediff-hook.el (ediff-cond-compile-for-xemacs-or-emacs):
        * calculator.el (calculator-help): Use featurep 'xemacs.
 
        * progmodes/prolog.el: Undo previous change.
-       (comint-prompt-regexp, comint-process-echoes): Pacify
-       byte-compiler.
+       (comint-prompt-regexp, comint-process-echoes): Pacify byte-compiler.
 
        * progmodes/dcl-mode.el:
        * play/yow.el:
        * calendar/todo-mode.el:
        * calendar/cal-hebrew.el:
        * vc-hg.el: Undo previous change.
-       
+
        * vms-patch.el: Likewise.
        (print-region-function): Pacify byte-compiler.
 
@@ -83,8 +84,7 @@
        (tramp-do-copy-or-rename-file-out-of-band)
        (tramp-maybe-open-connection): Use `make-temp-name'.  This is
        possible, because we don't need to create the temporary file, but
-       we need a prefix for ssh, which has its own temporary file
-       handling.
+       we need a prefix for ssh, which has its own temporary file handling.
        (tramp-handle-delete-directory): Add "-f" to rmdir.
        (tramp-handle-dired-recursive-delete-directory): Call "rm -rf".
        (tramp-handle-insert-file-contents): Don't raise a tramp-error but
@@ -107,14 +107,13 @@
 
        * progmodes/dcl-mode.el: Require imenu at compile time.
 
-       * progmodes/cc-engine.el (c-maybe-stale-found-type): Pacify
-       byte-compiler.
+       * progmodes/cc-engine.el (c-maybe-stale-found-type):
+       Pacify byte-compiler.
 
-       * obsolete/fast-lock.el: Use featurep test instead of
-       string-match.
+       * obsolete/fast-lock.el: Use featurep test instead of string-match.
 
-       * eshell/esh-mode.el (eshell-handle-ansi-color): Require
-       ansi-color at compile time too.
+       * eshell/esh-mode.el (eshell-handle-ansi-color):
+       Require ansi-color at compile time too.
 
        * eshell/em-unix.el (eshell/info): Require info at compile time too.
 
@@ -125,7 +124,7 @@
 
 2007-10-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
-       * double.el ([ignore]): Use ignore.
+       * double.el ([ignore]): Use `ignore'.
        (double-setup): Inline into double-mode.
        (double-mode): Use define-minor-mode.
 
@@ -2051,8 +2050,8 @@
        Handle escaped parens.
        (latex-forward-sexp): Doc fix.
 
-       * eshell/esh-mode.el (eshell-output-filter-functions): Add
-       eshell-postoutput-scroll-to-bottom.
+       * eshell/esh-mode.el (eshell-output-filter-functions):
+       Add eshell-postoutput-scroll-to-bottom.
 
        * loadup.el: Remove termdev.
 

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 94b4a957cefc22e753b79cb3bd4955aca3acb344..51860b97d79d8d3ada6b0dfecd2dd778385d7c9e 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1148,7 +1148,7 @@
 (defun byte-optimize-featurep (form)
   ;; Emacs-21's byte-code doesn't run under XEmacs or SXEmacs anyway, so we
   ;; can safely optimize away this test.
-  (if (member (cdr-safe form) '((quote xemacs) (quote sxemacs)))
+  (if (member (cdr-safe form) '(((quote xemacs)) ((quote sxemacs))))
       nil
     form))