Mercurial > emacs
annotate lisp/hscroll.el @ 27982:86de01dd01eb
Change many FRAME_X... macros to FRAME_WINDOW... or other
non-platform-specific equivalents.
[WINDOWSNT]: include w32term.h, fontset.h and define X specific
functions and macros as their w32 equivalents where
non-platform-specifics are not available.
[HAVE_X_WINDOWS]: Change most of these to HAVE_WINDOW_SYSTEM.
(x_create_gc, x_free_gc) [WINDOWSNT]: Add W32 versions.
(clear_font_table) [WINDOWSNT]: Call w32_unload_font.
(frame_update_line_height): Use macros to access f->output_data.
(defined_color): Remove FIXME comments; fixed.
(x_face_list_fonts, prepare_face_for_display): Put X specifics into
#ifdef blocks. Add WINDOWSNT blocks.
(Fx_list_fonts): Use macros for accessing font data.
(set_lface_from_font_name): Different default fonts for X and WINDOWSNT.
(font_scalable_p) [WINDOWSNT]: Treat wildcard XLFD_AVGWIDTH as
scalable for backward compatibility.
(realize_tty_face) [MSDOS]: do the same for WINDOWSNT.
(syms_of_xfaces) [WINDOWSNT]: Allow scalable fonts by default.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Sat, 04 Mar 2000 14:53:34 +0000 |
parents | 797edf0b0892 |
children | ffb4fe2a1dbc |
rev | line source |
---|---|
16583 | 1 ;;; hscroll.el: Minor mode to automatically scroll truncated lines horizontally |
2 ;;; Copyright (C) 1992, 1993, 1995, 1996 Free Software Foundation, Inc. | |
3 | |
4 ;; Author: Wayne Mesard <wmesard@esd.sgi.com> | |
5 ;; Keywords: display | |
6 | |
7 ;; This file is part of GNU Emacs. | |
8 | |
9 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
10 ;; it under the terms of the GNU General Public License as published by | |
11 ;; the Free Software Foundation; either version 2, or (at your option) | |
12 ;; any later version. | |
13 | |
14 ;; GNU Emacs is distributed in the hope that it will be useful, | |
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 ;; GNU General Public License for more details. | |
18 | |
19 ;; You should have received a copy of the GNU General Public License | |
20 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
22 ;; Boston, MA 02111-1307, USA. | |
23 | |
23789
7d763e90da82
(hscroll-mode, hscroll-global-mode, hscroll-window-maybe):
Richard M. Stallman <rms@gnu.org>
parents:
21670
diff
changeset
|
24 ;;; Commentary: |
16583 | 25 ;; |
25563
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
26 ;; This file contains dummy variables and functions only because Emacs |
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
27 ;; does hscrolling automatically, now. |
16583 | 28 |
29 ;;; Code: | |
30 | |
31 ;;; | |
32 ;;; PUBLIC VARIABLES | |
33 ;;; | |
34 | |
25563
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
35 (defvar hscroll-version "0.0") |
16583 | 36 |
19420 | 37 (defgroup hscroll nil |
27174 | 38 "This customization group is kept for compatibility only. |
25563
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
39 Emacs now does hscrolling automatically. Please remove references |
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
40 to hscroll from your init file and code." |
19420 | 41 :group 'editing) |
42 | |
20765
2bdc3877262b
(hscroll-global-mode): New customize variable to automatically load the
Stephen Eglen <stephen@gnu.org>
parents:
19420
diff
changeset
|
43 |
2bdc3877262b
(hscroll-global-mode): New customize variable to automatically load the
Stephen Eglen <stephen@gnu.org>
parents:
19420
diff
changeset
|
44 (defcustom hscroll-global-mode nil |
25563
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
45 "*Obsolete." |
20765
2bdc3877262b
(hscroll-global-mode): New customize variable to automatically load the
Stephen Eglen <stephen@gnu.org>
parents:
19420
diff
changeset
|
46 :group 'hscroll |
2bdc3877262b
(hscroll-global-mode): New customize variable to automatically load the
Stephen Eglen <stephen@gnu.org>
parents:
19420
diff
changeset
|
47 :type 'boolean |
21670
808ecc2eaa84
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
20765
diff
changeset
|
48 :require 'hscroll |
808ecc2eaa84
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
20765
diff
changeset
|
49 :version "20.3") |
20765
2bdc3877262b
(hscroll-global-mode): New customize variable to automatically load the
Stephen Eglen <stephen@gnu.org>
parents:
19420
diff
changeset
|
50 |
19420 | 51 (defcustom hscroll-margin 5 |
25563
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
52 "*Obsolete." |
19420 | 53 :group 'hscroll |
54 :type 'integer) | |
16583 | 55 |
19420 | 56 (defcustom hscroll-snap-threshold 30 |
25563
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
57 "*Obsolete." |
19420 | 58 :group 'hscroll |
59 :type 'integer) | |
16583 | 60 |
19420 | 61 (defcustom hscroll-step-percent 25 |
25563
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
62 "*Obsolete." |
19420 | 63 :group 'hscroll |
64 :type 'integer) | |
16583 | 65 |
19420 | 66 (defcustom hscroll-mode-name " Hscr" |
25563
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
67 "*Obsolete." |
19420 | 68 :group 'hscroll |
69 :type 'string) | |
16583 | 70 |
71 ;;; | |
72 ;;; PUBLIC COMMANDS | |
73 ;;; | |
74 | |
75 ;;;###autoload | |
76 (defun turn-on-hscroll () | |
25563
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
77 "This function is obsolete.") |
16583 | 78 |
79 ;;;###autoload | |
80 (defun hscroll-mode (&optional arg) | |
25563
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
81 "This function is absolete." |
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
82 (interactive "P")) |
16583 | 83 |
84 ;;;###autoload | |
85 (defun hscroll-global-mode (&optional arg) | |
25563
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
86 "This function is absolete." |
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
87 (interactive "P")) |
24939
db6ed843d5e8
(hscroll-minibuffer-hook): New function.
Richard M. Stallman <rms@gnu.org>
parents:
24922
diff
changeset
|
88 |
16583 | 89 (defun hscroll-window-maybe () |
25563
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
90 "This function is obsolete." |
856179ce1645
Remove all code, keep interface.
Gerd Moellmann <gerd@gnu.org>
parents:
24939
diff
changeset
|
91 (interactive)) |
20765
2bdc3877262b
(hscroll-global-mode): New customize variable to automatically load the
Stephen Eglen <stephen@gnu.org>
parents:
19420
diff
changeset
|
92 |
16583 | 93 (provide 'hscroll) |
94 | |
95 ;;; hscroll.el ends here |