[5328] New interactive command "display-file".

[Sergey Poznyakoff]

Revision: 5328
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=5328
Author:   gray
Date:     2013-08-19 11:17:31 +0000 (Mon, 19 Aug 2013)
Log Message:
-----------
New interactive command "display-file".

* info/session.c (info_display_file): New command.
* info/infomap.c: Bind '=' to display-file.

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/info/infomap.c
    trunk/info/session.c

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2013-08-19 09:57:09 UTC (rev 5327)
+++ trunk/ChangeLog     2013-08-19 11:17:31 UTC (rev 5328)
@@ -1,8 +1,15 @@
 2013-08-19  Sergey Poznyakoff  <address@hidden>
 
+       New interactive command "display-file".
+
+       * info/session.c (info_display_file): New command.
+       * info/infomap.c: Bind '=' to display-file.
+
+2013-08-19  Sergey Poznyakoff  <address@hidden>
+
        Don't return dir entries when called with -a.  Fix interaction of
        -a and --output.
-       
+
        * info/session.c (info_follow_menus): Add debugging output
        on level 3.
        In strict mode, return NULL if no matching node was found (by

Modified: trunk/info/infomap.c
===================================================================
--- trunk/info/infomap.c        2013-08-19 09:57:09 UTC (rev 5327)
+++ trunk/info/infomap.c        2013-08-19 11:17:31 UTC (rev 5328)
@@ -315,6 +315,7 @@
   '8', NUL,                       A_info_menu_digit,
   '9', NUL,                       A_info_menu_digit,
   '<', NUL,                       A_info_first_node,
+  '=', NUL,                       A_info_display_file,
   '>', NUL,                       A_info_last_node,
   '?', NUL,                       A_info_get_help_window,
   '[', NUL,                       A_info_global_prev_node,
@@ -571,6 +572,7 @@
   '8', NUL,                       A_info_add_digit_to_numeric_arg,
   '9', NUL,                       A_info_add_digit_to_numeric_arg,
   '-', NUL,                       A_info_add_digit_to_numeric_arg,
+  '=', NUL,                       A_info_display_file,
   TAB, NUL,                       A_info_move_to_next_xref,
   LFD, NUL,                       A_info_down_line,
   RET, NUL,                       A_info_down_line,

Modified: trunk/info/session.c
===================================================================
--- trunk/info/session.c        2013-08-19 09:57:09 UTC (rev 5327)
+++ trunk/info/session.c        2013-08-19 11:17:31 UTC (rev 5328)
@@ -2823,7 +2823,7 @@
       REFERENCE *entry;
       char *arg = *menus; /* Remember the name of the menu entry we want. */
 
-      debug(3, ("looking for %s in %s", arg, initial_node->filename,
+      debug(3, ("looking for %s in %s:%s", arg, initial_node->filename,
                initial_node->nodename));
       /* A leading space is certainly NOT part of a node name.  Most
          probably, they typed a space after the separating comma.  The
@@ -5367,6 +5367,21 @@
       key = 0;
     }
 }
+
+DECLARE_INFO_COMMAND (info_display_file,
+                     _("Show full file name of the node being displayed"))
+{
+  const char *fname = info_find_fullpath (window->node->filename);
+  if (fname)
+    {
+      int line = window_line_of_point (window);
+      window_message_in_echo_area ("File name: %s, line %d of %ld (%d%%)",
+                                  fname, line, window->line_count,
+                                  line * 100 / window->line_count);
+    }
+  else
+    window_message_in_echo_area ("Internal node");
+}
 
 /* **************************************************************** */
 /*                                                                  */