* src/eval.c (run_hook_with_args): Use FUNCTIONP.

* test/indent/css-mode.css (.x2): Test alignement inside braces.
* test/indent/prolog.prolog: Test alignment of ->; with operator at bol.

3 files changed, 17 insertions, 13 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 55ff9390ce6..71774535462 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-10-29  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * eval.c (run_hook_with_args): Use FUNCTIONP.
+
 2013-10-29  Dmitry Antipov  <dmantipov@yandex.ru>
 
         * xterm.h (struct x_output): For 'black_relief' and 'white_relief'
@@ -227,8 +231,8 @@
         (get_adapters_info): New wrapper function.
         (globals_of_w32): Initialize g_b_init_get_adapters_info.
 
-        * process.h (network_interface_list, network_interface_info): New
-        prototypes.
+        * process.h (network_interface_list, network_interface_info):
+        New prototypes.
 
         * process.c (conv_sockaddr_to_lisp): Now externally-visible.
         (Fnetwork_interface_list, Fnetwork_interface_info): Define for
@@ -559,8 +563,8 @@
         (xw_popup_dialog): New function, with X-specific bits of popup
         dialogs.
 
-        * xdisp.c (deep_copy_glyph_row, display_tty_menu_item): New
-        functions.
+        * xdisp.c (deep_copy_glyph_row, display_tty_menu_item):
+        New functions.
 
         * window.c (Fset_window_configuration): Use run-time tests of the
         frame type instead of compile-time conditionals, when menu-bar
@@ -625,11 +629,11 @@
         of, or in addition to, compile-time conditionals.
         (menu_item_width, Fmenu_bar_menu_at_x_y): New functions.
         (Fx_popup_menu): Detect when the function is called from keyboard
-        on a TTY.  Don't barf when invoked on a text-mode frame.  Check
-        frame type at run time, instead of compile-time conditionals for
-        invoking terminal-specific menu-show functions.  Call
-        tty_menu_show on text-mode frames.
-        (Fx_popup_dialog): Moved here from xmenu.c.  Test frame types at
+        on a TTY.  Don't barf when invoked on a text-mode frame.
+        Check frame type at run time, instead of compile-time conditionals for
+        invoking terminal-specific menu-show functions.
+        Call tty_menu_show on text-mode frames.
+        (Fx_popup_dialog): Move here from xmenu.c.  Test frame types at
         run time to determine which alternative to invoke; support dialogs
         on TTYs.
 
diff --git a/src/buffer.c b/src/buffer.c
index ef04ca7018d..e44908a543c 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -2074,7 +2074,7 @@ the current buffer's major mode.  */)
   count = SPECPDL_INDEX ();
 
   /* To select a nonfundamental mode,
-     select the buffer temporarily and then call the mode function. */
+     select the buffer temporarily and then call the mode function.  */
 
   record_unwind_protect (save_excursion_restore, save_excursion_save ());
 
@@ -2114,7 +2114,7 @@ set_buffer_internal_1 (register struct buffer *b)
 
   old_buf = current_buffer;
   current_buffer = b;
-  last_known_column_point = -1;   /* invalidate indentation cache */
+  last_known_column_point = -1;   /* Invalidate indentation cache.  */
 
   if (old_buf)
     {
@@ -2138,7 +2138,7 @@ set_buffer_internal_1 (register struct buffer *b)
   fetch_buffer_markers (b);
 
   /* Look down buffer's list of local Lisp variables
-     to find and update any that forward into C variables. */
+     to find and update any that forward into C variables.  */
 
   do
     {
diff --git a/src/eval.c b/src/eval.c
index 1e0a63a0ece..a25dc1b5aa9 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2479,7 +2479,7 @@ run_hook_with_args (ptrdiff_t nargs, Lisp_Object *args,
 
   if (EQ (val, Qunbound) || NILP (val))
     return ret;
-  else if (!CONSP (val) || EQ (XCAR (val), Qlambda))
+  else if (!CONSP (val) || FUNCTIONP (val))
     {
       args[0] = val;
       return funcall (nargs, args);