diff options
| author | J.D. Smith | 2007-03-08 18:31:13 +0000 |
|---|---|---|
| committer | J.D. Smith | 2007-03-08 18:31:13 +0000 |
| commit | eae7eecde067300cbc70617b41d82dbadf2e3046 (patch) | |
| tree | f94b76062daa1b87863fdbb19d7c1f0d9f8bb52e | |
| parent | 190871ef254c9de657a7e022721fca9f254e5d68 (diff) | |
| download | emacs-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/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/progmodes/idlw-help.el | 8 |
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 @@ | |||
| 1 | 2007-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 | |||
| 1 | 2007-03-08 Chong Yidong <cyd@stupidchicken.com> | 8 | 2007-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 |
| 1232 | IDL assistant.") | 1232 | IDL assistant.") |