gforth/gforth.el - diff

Return to gforth.el CVS log

Up to [gforth] / gforth

Diff for /gforth/gforth.el between versions 1.66 and 1.69

version 1.66, 2003/02/08 17:32:28	version 1.69, 2003/08/04 21:21:13
Line 1	Line 1
;;; gforth.el --- major mode for editing (G)Forth sources	;;; gforth.el --- major mode for editing (G)Forth sources

;; Copyright (C) 1995,1996,1997,1998,2000,2001 Free Software Foundation, Inc.	;; Copyright (C) 1995,1996,1997,1998,2000,2001,2003 Free Software Foundation, Inc.

;; This file is part of Gforth.	;; This file is part of Gforth.

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
Line 1120 exceeds 64 characters."	Line 1122 exceeds 64 characters."
(defun forth-find-tag (tagname &optional next-p regexp-p)	(defun forth-find-tag (tagname &optional next-p regexp-p)
(interactive (find-tag-interactive "Find tag: "))	(interactive (find-tag-interactive "Find tag: "))
(unless (or regexp-p next-p)	(unless (or regexp-p next-p)
(setq tagname (concat "\$^\\\|\\s-\$\\(" (regexp-quote tagname)	(setq tagname (concat "\$^\\\|\\s-+\$\\(" (regexp-quote tagname)
"\\)\$\\s-\\\|$\$")))	"\\)\\s-*\x7f")))
(switch-to-buffer	(switch-to-buffer
(find-tag-noselect tagname next-p t)))	(find-tag-noselect tagname next-p t)))

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.66
changed lines
	Added in v.1.69