aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJ.D. Smith2007-03-08 18:31:13 +0000
committerJ.D. Smith2007-03-08 18:31:13 +0000
commiteae7eecde067300cbc70617b41d82dbadf2e3046 (patch)
treef94b76062daa1b87863fdbb19d7c1f0d9f8bb52e
parent190871ef254c9de657a7e022721fca9f254e5d68 (diff)
downloademacs-eae7eecde067300cbc70617b41d82dbadf2e3046.tar.gz
emacs-eae7eecde067300cbc70617b41d82dbadf2e3046.zip
(idlwave-do-context-help1): Don't visit special help topics for
keywords. (idlwave-help-assistant-command): Include ".exe" for ms-dos etc. Assistant command.
-rw-r--r--lisp/ChangeLog7
-rw-r--r--lisp/progmodes/idlw-help.el8
2 files changed, 11 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 16fd7348e3b..e683efb937a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
12007-03-08 J.D. Smith <jdsmith@as.arizona.edu>
2
3 * progmodes/idlw-help.el (idlwave-do-context-help1): Don't visit
4 special help topics for keywords.
5 (idlwave-help-assistant-command): Include ".exe" for ms-dos
6 etc. Assistant command.
7
12007-03-08 Chong Yidong <cyd@stupidchicken.com> 82007-03-08 Chong Yidong <cyd@stupidchicken.com>
2 9
3 * replace.el (occur-engine): buffer-undo-list binding moved... 10 * replace.el (occur-engine): buffer-undo-list binding moved...
diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el
index a9ceccac6a0..030b785acdf 100644
--- a/lisp/progmodes/idlw-help.el
+++ b/lisp/progmodes/idlw-help.el
@@ -386,8 +386,7 @@ It collects and prints the diagnostics messages."
386 (< beg (- end 4)))) 386 (< beg (- end 4))))
387 module keyword cw mod1 mod2 mod3) 387 module keyword cw mod1 mod2 mod3)
388 (if (or arg 388 (if (or arg
389 (and (not st-ass) 389 (and (not classtag)
390 (not classtag)
391 (not structtag) 390 (not structtag)
392 (not (member (string-to-char this-word) '(?! ?.))))) 391 (not (member (string-to-char this-word) '(?! ?.)))))
393 ;; Need the module information 392 ;; Need the module information
@@ -408,7 +407,8 @@ It collects and prints the diagnostics messages."
408 (arg (setq mod1 module)) 407 (arg (setq mod1 module))
409 408
410 ;; A special topic -- only system help 409 ;; A special topic -- only system help
411 (st-ass (setq mod1 (list (cdr st-ass)))) 410 ((and st-ass (not (memq cw '(function-keyword procedure-keyword))))
411 (setq mod1 (list (cdr st-ass))))
412 412
413 ;; A system variable -- only system help 413 ;; A system variable -- only system help
414 ((string-match 414 ((string-match
@@ -1226,7 +1226,7 @@ Useful when source code is displayed as help. See the option
1226;; we must pass the -profile argument as well. 1226;; we must pass the -profile argument as well.
1227(defvar idlwave-help-assistant-command 1227(defvar idlwave-help-assistant-command
1228 (if (memq system-type '(ms-dos windows-nt)) 1228 (if (memq system-type '(ms-dos windows-nt))
1229 "bin/bin.x86/idl_assistant" 1229 "bin/bin.x86/idl_assistant.exe"
1230 "bin/idl_assistant") 1230 "bin/idl_assistant")
1231 "The command, rooted at idlwave-system-directory, which invokes the 1231 "The command, rooted at idlwave-system-directory, which invokes the
1232IDL assistant.") 1232IDL assistant.")