version 1.68, 2003/03/09 15:16:49
|
version 1.69, 2003/08/04 21:21:13
|
Line 115
|
Line 115
|
; todo: |
; todo: |
; |
; |
|
|
|
; screen-height existiert nicht in XEmacs, frame-height ersetzen? |
|
; |
|
|
; Wörter ordentlich hilighten, die nicht auf Whitespace beginnen ( ..)IF |
; Wörter ordentlich hilighten, die nicht auf Whitespace beginnen ( ..)IF |
; -- mit aktueller Konzeption nicht möglich?? |
; -- mit aktueller Konzeption nicht möglich?? |
; |
; |
Line 1104 exceeds 64 characters."
|
Line 1107 exceeds 64 characters."
|
(unless (memq forth-info-lookup info-lookup-alist) |
(unless (memq forth-info-lookup info-lookup-alist) |
(setq info-lookup-alist (cons forth-info-lookup info-lookup-alist))) |
(setq info-lookup-alist (cons forth-info-lookup info-lookup-alist))) |
;; in X-Emacs C-h C-i is by default bound to Info-query |
;; in X-Emacs C-h C-i is by default bound to Info-query |
(define-key forth-mode-map "\C-h\C-i" 'info-lookup-symbol)) |
(define-key forth-mode-map [?\C-h ?\C-i] 'info-lookup-symbol)) |
|
|
|
|
;; (info-lookup-add-help |
;; (info-lookup-add-help |
;; :topic 'symbol |
;; :topic 'symbol |