Mercurial > hg > xemacs-beta

comparison lisp/prim/help.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents 43dd3413c7c7
children 5a88923fcbfe
comparison
equal deleted inserted replaced
158:558dfa75ffb3 159:3bb7ccffb0c0
1 ;;; help.el --- help commands for XEmacs. 1 ;;; help.el --- help commands for XEmacs.
2
2 ;; Copyright (C) 1985, 1986, 1992, 1993, 1994 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1986, 1992, 1993, 1994 Free Software Foundation, Inc.
3 4
4 ;; Maintainer: FSF 5 ;; Maintainer: FSF
5 ;; Keywords: help, internal 6 ;; Keywords: help, internal
6 7
26 ;;; Commentary: 27 ;;; Commentary:
27 28
28 ;; This code implements XEmacs's on-line help system, the one invoked by 29 ;; This code implements XEmacs's on-line help system, the one invoked by
29 ;;`M-x help-for-help'. 30 ;;`M-x help-for-help'.
30 31
32 ;; 06/11/1997 -- Converted to use char-after instead of broken
33 ;; following-char. -slb
34
31 ;;; Code: 35 ;;; Code:
32 36
33 ;#### FSFmacs 37 ;#### FSFmacs
34 ;; Get the macro make-help-screen when this is compiled, 38 ;; Get the macro make-help-screen when this is compiled,
35 ;; or run interpreted, but not when the compiled code is loaded. 39 ;; or run interpreted, but not when the compiled code is loaded.
179 Commands: 183 Commands:
180 \\{help-mode-map}" 184 \\{help-mode-map}"
181 ) 185 )
182 186
183 (define-key help-mode-map "q" 'help-mode-quit) 187 (define-key help-mode-map "q" 'help-mode-quit)
188 (define-key help-mode-map 'delete 'scroll-down)
184 189
185 (defun help-mode-quit () 190 (defun help-mode-quit ()
186 "Exits from help mode, possibly restoring the previous window configuration." 191 "Exits from help mode, possibly restoring the previous window configuration."
187 (interactive) 192 (interactive)
188 (cond ((frame-property (selected-frame) 'help-window-config) 193 (cond ((frame-property (selected-frame) 'help-window-config)
753 (let ((stab (syntax-table))) 758 (let ((stab (syntax-table)))
754 (unwind-protect 759 (unwind-protect
755 (save-excursion 760 (save-excursion
756 (set-syntax-table emacs-lisp-mode-syntax-table) 761 (set-syntax-table emacs-lisp-mode-syntax-table)
757 (or (not (zerop (skip-syntax-backward "_w"))) 762 (or (not (zerop (skip-syntax-backward "_w")))
758 (eq (char-syntax (following-char)) ?w) 763 (eq (char-syntax (char-after (point))) ?w)
759 (eq (char-syntax (following-char)) ?_) 764 (eq (char-syntax (char-after (point))) ?_)
760 (forward-sexp -1)) 765 (forward-sexp -1))
761 (skip-chars-forward "`'") 766 (skip-chars-forward "`'")
762 (let ((obj (read (current-buffer)))) 767 (let ((obj (read (current-buffer))))
763 (and (symbolp obj) (fboundp obj) obj))) 768 (and (symbolp obj) (fboundp obj) obj)))
764 (set-syntax-table stab))) 769 (set-syntax-table stab)))
989 (let ((stab (syntax-table))) 994 (let ((stab (syntax-table)))
990 (unwind-protect 995 (unwind-protect
991 (save-excursion 996 (save-excursion
992 (set-syntax-table emacs-lisp-mode-syntax-table) 997 (set-syntax-table emacs-lisp-mode-syntax-table)
993 (or (not (zerop (skip-syntax-backward "_w"))) 998 (or (not (zerop (skip-syntax-backward "_w")))
994 (eq (char-syntax (following-char)) ?w) 999 (eq (char-syntax (char-after (point))) ?w)
995 (eq (char-syntax (following-char)) ?_) 1000 (eq (char-syntax (char-after (point))) ?_)
996 (forward-sexp -1)) 1001 (forward-sexp -1))
997 (skip-chars-forward "'") 1002 (skip-chars-forward "'")
998 (let ((obj (read (current-buffer)))) 1003 (let ((obj (read (current-buffer))))
999 (and (symbolp obj) (boundp obj) obj))) 1004 (and (symbolp obj) (boundp obj) obj)))
1000 (set-syntax-table stab))) 1005 (set-syntax-table stab)))