changeset 546:071cd0ab1c71 dev

Optional second arg. for YaTeX-help suppress ask of new entry creation
author HIROSE Yuuji <yuuji@gentei.org>
date Sat, 02 Jun 2018 16:47:26 +0900
parents ea6956f10ce7
children 826b0766f6ba
files yatexhlp.el
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/yatexhlp.el	Sat Jun 02 15:57:55 2018 +0900
+++ b/yatexhlp.el	Sat Jun 02 16:47:26 2018 +0900
@@ -1,7 +1,7 @@
 ;;; yatexhlp.el --- YaTeX helper for LaTeX -*- coding: sjis -*-
 ;;; 
-;;; (c)1994,1998,2004,2014,2015 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Sun Sep 17 10:23:19 2017 on firestorm
+;;; (c)1994,1998,2004,2014,2015,2018 by HIROSE Yuuji.[yuuji@yatex.org]
+;;; Last modified Sat Jun  2 16:45:45 2018 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -302,9 +302,11 @@
       (message "No matches found.")))
 
 ;;;###autoload
-(defun YaTeX-help (&optional macro)
+(defun YaTeX-help (&optional macro ref-only)
   "Show help buffer of LaTeX/TeX commands or macros.
-Optional argument MACRO, if supplied, is directly selected to keyword."
+Optional argument MACRO, if supplied, is directly selected to keyword.
+Non-nil for optional second argument REF-ONLY inhibits call enrich-help
+for non-interactive use."
   (interactive)
   (let (p beg end command)
     (save-excursion
@@ -341,4 +343,5 @@
     (setq YaTeX-help-saved-config (current-window-configuration))
     (or (YaTeX-refer-help command YaTeX-help-file)
 	(YaTeX-refer-help command YaTeX-help-file-private)
+	ref-only
 	(YaTeX-enrich-help command))))