Mercurial > emacs
annotate lisp/obsolete/hscroll.el @ 83619:5da6a46ddbd6
* s/darwin.h (SYSTEM_PURESIZE_EXTRA): Define here.
* termhooks.h (union display_info): Add mac_display_info.
* term.c (init_tty): Only use terminal->kboard when MULTI_KBOARD
is defined.
* macterm.h (struct mac_display_info): Add terminal.
* w32term.c (w32_initialize): Make static.
* macterm.c (XTset_terminal_modes): Add a terminal parameter.
(XTreset_terminal_modes): Likewise.
(x_clear_frame): Add a frame parameter.
(note_mouse_movement): Get rif from the frame.
(mac_term_init): Initialize the terminal.
(mac_initialize): Make static and move terminal initialization ...
(mac_create_terminal): ... in this new function.
* macmenu.c: Reorder includes.
(Fx_popup_menu): Use terminal specific mouse_position_hook.
* macfns.c (x_set_mouse_color): Get rif from the frame.
(x_set_tool_bar_lines): Don't use updating_frame.
(mac_window): Add 2 new parameters for consistency with other
systems.
(Fx_create_frame): Fix doc string. Rename the parameter.
(Fx_create_frame): Set the frame parameters following what is done
in X11 and w32.
(Fx_open_connection): Remove window-system check.
(start_hourglass): Likewise.
(x_create_tip_frame): Get the keyboard from the terminal.
* w32fns.c (Fx_create_frame): Use kboard from the terminal.
* term/mac-win.el: Provide mac-win.
(mac-initialized): New variable.
(mac-initialize-window-system): New function. Move global setup
here.
(handle-args-function-alist, frame-creation-function-alist):
(window-system-initialization-alist): Add mac entries.
* loadup.el: Load mac-win on a Mac.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Sat, 19 May 2007 19:08:02 +0000 |
parents | e3694f1cb928 |
children | 1e016d63f292 95d0cdf160ea |
rev | line source |
---|---|
34421 | 1 ;;; hscroll.el --- automatically scroll truncated lines horizontally |
64751
5b1a238fcbb4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
2 |
74509 | 3 ;; Copyright (C) 1992, 1993, 1995, 1996, 2001, 2002, 2003, 2004, |
75347 | 4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. |
34421 | 5 |
6 ;; Author: Wayne Mesard <wmesard@esd.sgi.com> | |
7 ;; Keywords: display | |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
64085 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
24 ;; Boston, MA 02110-1301, USA. | |
34421 | 25 |
26 ;;; Commentary: | |
27 ;; | |
28 ;; This file contains dummy variables and functions only because Emacs | |
29 ;; does hscrolling automatically, now. | |
30 | |
31 ;;; Code: | |
32 | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
34421
diff
changeset
|
33 ;;; |
34421 | 34 ;;; PUBLIC VARIABLES |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
34421
diff
changeset
|
35 ;;; |
34421 | 36 |
37 (defvar hscroll-version "0.0") | |
38 | |
39 (defgroup hscroll nil | |
40 "This customization group is kept for compatibility only. | |
41 Emacs now does hscrolling automatically. Please remove references | |
42 to hscroll from your init file and code." | |
43 :group 'editing) | |
44 | |
45 | |
46 (defcustom hscroll-global-mode nil | |
47 "*Obsolete." | |
48 :group 'hscroll | |
49 :type 'boolean | |
50 :require 'hscroll | |
51 :version "20.3") | |
52 | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
34421
diff
changeset
|
53 (defcustom hscroll-margin 5 |
34421 | 54 "*Obsolete." |
55 :group 'hscroll | |
56 :type 'integer) | |
57 | |
58 (defcustom hscroll-snap-threshold 30 | |
59 "*Obsolete." | |
60 :group 'hscroll | |
61 :type 'integer) | |
62 | |
63 (defcustom hscroll-step-percent 25 | |
64 "*Obsolete." | |
65 :group 'hscroll | |
66 :type 'integer) | |
67 | |
68 (defcustom hscroll-mode-name " Hscr" | |
69 "*Obsolete." | |
70 :group 'hscroll | |
71 :type 'string) | |
72 | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
34421
diff
changeset
|
73 ;;; |
34421 | 74 ;;; PUBLIC COMMANDS |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
34421
diff
changeset
|
75 ;;; |
34421 | 76 |
77 ;;;###autoload | |
78 (defun turn-on-hscroll () | |
79 "This function is obsolete. | |
80 Emacs now does hscrolling automatically, if `truncate-lines' is non-nil. | |
81 Also see `automatic-hscrolling'.") | |
82 | |
83 ;;;###autoload | |
84 (defun hscroll-mode (&optional arg) | |
85 "This function is obsolete. | |
86 Emacs now does hscrolling automatically, if `truncate-lines' is non-nil. | |
87 Also see `automatic-hscrolling'." | |
88 (interactive "P")) | |
89 | |
90 ;;;###autoload | |
91 (defun hscroll-global-mode (&optional arg) | |
92 "This function is obsolete. | |
93 Emacs now does hscrolling automatically, if `truncate-lines' is non-nil. | |
94 Also see `automatic-hscrolling'." | |
95 (interactive "P")) | |
96 | |
97 (defun hscroll-window-maybe () | |
98 "This function is obsolete. | |
99 Emacs now does hscrolling automatically, if `truncate-lines' is non-nil. | |
100 Also see `automatic-hscrolling'." | |
101 (interactive)) | |
102 | |
103 (provide 'hscroll) | |
104 | |
52401 | 105 ;;; arch-tag: 48377520-e5ca-401d-b360-3881b2d5a05a |
34421 | 106 ;;; hscroll.el ends here |