annotate lisp/obsolete/x-apollo.el @ 48286:a820dd4741e1

(fill-nobreak-invisible): New var. (fill-nobreak-p): Test it; return t if set and point invisible. (fill-newline): Test it; remove invisible prop on newline if set.
author Kim F. Storm <storm@cua.dk>
date Wed, 13 Nov 2002 23:32:21 +0000
parents 9a10bb9ac325
children 695cf19ef79e d7ddb3e565de
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
39022
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1 ;;; x-apollo.el --- Apollo support functions
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5 ;; This file is part of GNU Emacs.
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
6
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
7 ;; GNU Emacs is free software; you can redistribute it and/or modify
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
8 ;; it under the terms of the GNU General Public License as published by
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
9 ;; the Free Software Foundation; either version 2, or (at your option)
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
10 ;; any later version.
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
12 ;; GNU Emacs is distributed in the hope that it will be useful,
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
15 ;; GNU General Public License for more details.
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
16
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
17 ;; You should have received a copy of the GNU General Public License
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18 ;; along with GNU Emacs; see the file COPYING. If not, write to the
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
19 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
20 ;; Boston, MA 02111-1307, USA.
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
22 ;;; Commentary:
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
23
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
24 ;;; Code:
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
25
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
26 (defun apollo-kill-entire-line ()
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
27 "Kill the entire line containing point."
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
28 (interactive)
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
29 (beginning-of-line)
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
30 (kill-line 1))
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
31
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
32 (defun apollo-scroll-window-right ()
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
33 "Scroll window to right ten columns."
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
34 (interactive)
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
35 (scroll-left 10))
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37 (defun apollo-scroll-window-left ()
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
38 "Scroll window to left ten columns."
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
39 (interactive)
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
40 (scroll-right 10))
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
41
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42 (defun apollo-scroll-window-forward-line ()
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43 "Move window forward one line leaving cursor at position in window."
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
44 (interactive)
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45 (scroll-up 1))
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
46
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
47 (defun apollo-scroll-window-backward-line ()
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
48 "Move window backward one line leaving cursor at position in window."
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
49 (interactive)
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
50 (scroll-down 1))
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
51
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
52 ;;; Define and Enable the Function Key Bindings.
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
53
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
54 (global-set-key [S-tab] "\C-i") ;Shift TAB
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
55 (global-set-key [C-tab] "\C-i") ;Control TAB
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
56 (global-set-key [S-return] "\C-m") ;Shift RET
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57 (global-set-key [C-return] "\C-m") ;Control RET
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
58 (global-set-key [linedel] 'apollo-kill-entire-line) ;LINE DEL
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
59 (global-set-key [chardel] 'delete-char) ;CHAR DEL
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
60 (global-set-key [leftbar] 'beginning-of-line) ;LEFT BAR ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
61 (global-set-key [rightbar] 'end-of-line) ;RIGHT BAR ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
62 (global-set-key [leftbox] 'apollo-scroll-window-left) ;LEFT BOX ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
63 (global-set-key [rightbox] 'apollo-scroll-window-right) ;RIGHT BOX ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
64 (global-set-key [S-up] 'apollo-scroll-window-backward-line) ;Shift UP ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
65 (global-set-key [S-down] 'apollo-scroll-window-forward-line) ;Shift DOWN ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
66 (global-set-key [select] 'set-mark-command) ;MARK
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
67 (global-set-key [S-insert] 'overwrite-mode) ;INS MODE
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
68 (global-set-key [S-linedel] 'yank) ;Shift LINE DEL
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
69 (global-set-key [S-chardel] 'delete-char) ;Shift CHAR DEL
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
70 (global-set-key [copy] 'copy-region-as-kill) ;COPY
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
71 (global-set-key [S-cut] 'kill-region) ;CUT
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
72 (global-set-key [paste] 'yank) ;PASTE
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
73 (global-set-key [S-undo] 'undo) ;UNDO
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
74 (global-set-key [S-left] 'backward-word) ;Shift LEFT ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
75 (global-set-key [S-right] 'forward-word) ;Shift RIGHT ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
76 (global-set-key [upbox] 'scroll-down) ;UP BOX ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
77 (global-set-key [S-upbox] 'beginning-of-buffer) ;Shift UP BOX ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
78 (global-set-key [downbox] 'scroll-up) ;DOWN BOX ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
79 (global-set-key [S-downbox] 'end-of-buffer) ;Shift DOWN BOX ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
80 (global-set-key [S-redo] 'toggle-read-only) ;Shift AGAIN
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
81 (global-set-key [exit] 'save-buffer) ;EXIT
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
82 (global-set-key [S-cancel] 'kill-buffer) ;ABORT
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
83 (global-set-key [S-save] 'save-buffer) ;SAVE
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
84 (global-set-key [S-leftbar] 'beginning-of-buffer) ;Shift LEFT BAR ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
85 (global-set-key [cmd] 'execute-extended-command) ;CMD
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
86 (global-set-key [S-rightbar] 'end-of-buffer) ;Shift RIGHT BAR ARROW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
87 (global-set-key [next] 'other-window) ;NEXT WNDW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
88 (global-set-key [S-next] 'delete-window) ;Shift NEXT WNDW
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
89 (global-set-key [read] 'find-file-read-only) ;READ
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
90 (global-set-key [edit] 'find-file) ;EDIT
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
91 (global-set-key [S-shell] 'shell) ;SHELL
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
92 (global-set-key [S-help] 'manual-entry) ;HELP
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
93
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
94 (provide 'x-apollo)
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
95
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
96 ;;; x-apollo.el ends here