annotate lisp/obsolete/x-apollo.el @ 67171:35b9e081ceed

Remove useless leading * in defcustom docstrings. (save-completions-file-name): Use ~/.emacs.d if available. (completion-standard-syntax-table): Rename from cmpl-standard-syntax-table and fold initialization into declaration, thus removing cmpl-make-standard-completion-syntax-table. (completion-lisp-syntax-table, completion-c-syntax-table) (completion-fortran-syntax-table, completion-c-def-syntax-table): Idem. (cmpl-saved-syntax, cmpl-saved-point): Remove. (symbol-under-point, symbol-before-point) (symbol-under-or-before-point, symbol-before-point-for-complete) (add-completions-from-c-buffer): Use with-syntax-table. (make-completion): Don't return a list of completion entries. Update callers. (cmpl-prefix-entry-head, cmpl-prefix-entry-tail): Use defalias. (completion-initialize): Rename from initialize-completions. (completion-find-file-hook): Rename from cmpl-find-file-hook. (kill-emacs-save-completions): Collect stats here. (save-completions-to-file, load-completions-from-file): Use with-current-buffer. (completion-def-wrapper): Rename from def-completion-wrapper. Make it into a function. Move all calls to toplevel. (completion-lisp-mode-hook): New fun. (completion-c-mode-hook, completion-setup-fortran-mode): Set the syntax-table here. Use local-set-key. (completion-saved-bindings): New var. (dynamic-completion-mode): Make it into a proper minor mode. (load-completions-from-file): Remove unused var `num-uses'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 28 Nov 2005 01:43:28 +0000
parents 5b1a238fcbb4
children e8a3fb527b77 2d92f5c9d6ae
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
64751
5b1a238fcbb4 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64085
diff changeset
3 ;; Copyright (C) 1995, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
39022
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
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
19 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
20 ;; Boston, MA 02110-1301, USA.
39022
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
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 39022
diff changeset
96 ;;; arch-tag: 4f3e86f4-557c-44b3-978e-144fc4dc812e
39022
9a10bb9ac325 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
97 ;;; x-apollo.el ends here