Mercurial > emacs
view lisp/autoinsert.el @ 1781:3f161f6701b1
* term.c (set_vertical_scrollbar_hook, condemn_scrollbars_hook,
redeem_scrollbar_hook, judge_scrollbars_hook): Removed dumbo
"externs" from these. They're supposed to be real definitions.
* termhooks.h (mouse_position_hook): Doc fix.
(set_vertical_scrollbar_hook): This doesn't return anything any
more, and doesn't take a struct scrollbar * argument any more.
(condemn_scrollbars_hook, redeem_scrollbar_hook,
judge_scrollbars_hook): Doc fixes.
* term.c (mouse_position_hook): Doc fix.
(set_vertical_scrollbar_hook): This doesn't return
anything any more. Doc fixes.
* keyboard.c (kbd_buffer_get_event): Receive the scrollbar's
window from *mouse_position_hook and pass it to
make_lispy_movement, instead of working with a pointer to a struct
scrollbar.
(make_lispy_event): We don't need a window_from_scrollbar function
anymore; we are given the window directly in *EVENT.
Unify the code which generates
text-area mouse clicks and scrollbar clicks; use the same code to
distinguish clicks from drags on the scrollbar as in the text area.
Distinguish clicks from drags by storing a copy of the lispy
position list returned as part of the event.
(button_down_location): Make this a lisp vector, rather than an
array of random structures.
(struct mouse_position): Remove this; it's been replaced by a lisp
list.
(make_lispy_movement): Accept the scrollbar's window as a
parameter, rather than the scrollbar itself.
If FRAME is zero, assume that the other arguments are garbage.
(syms_of_keyboard): No need to staticpro each window of
button_down_location now; just initialize and staticpro it.
* window.c (window_from_scrollbar): Function deleted; no longer
needed.
* xdisp.c (redisplay_window): Just pass the window to
set_vertical_scrollbar hook; don't pass the scrollbar object too.
* xterm.c (XTmouse_position): Don't return a pointer to the
scrollbar for scrollbar motion; instead, return the scrollbar's
window.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Thu, 14 Jan 1993 15:14:21 +0000 |
parents | 213978acbc1e |
children | 10e417efb12a |
line wrap: on
line source
;;; autoinsert.el --- automatic mode-dependent insertion of text into new files ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. ;; Author: Charlie Martin <crm@cs.duke.edu> ;; Created: 01 Jul 1988 ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: ;;; Abstract: ;;; ;;; The following defines an association list for files to be ;;; automatically inserted when a new file is created, and a function ;;; which automatically inserts these files; the idea is to insert ;;; default files much as the mode is automatically set using ;;; auto-mode-alist. ;;; ;;; The auto-insert-alist consists of dotted pairs of ;;; ( REGEXP . FILENAME ) where REGEXP is a regular expression, and ;;; FILENAME is the file name of a file which is to be inserted into ;;; all new files matching the regular expression with which it is ;;; paired. ;;; ;;; To use: ;;; load autoinsert.el ;;; setq auto-insert-directory to an appropriate value, which ;;; must end in "/" ;;; ;;; Author: Charlie Martin ;;; Department of Computer Science and ;;; National Biomedical Simulation Resource ;;; Box 3709 ;;; Duke University Medical Center ;;; Durham, NC 27710 ;;; (crm@cs.duke.edu,mcnc!duke!crm) ;;; ;;; Date: Fri Jul 1 16:15:31 EDT 1988 ;;; Code: (defvar auto-insert-alist '(("\\.tex$" . "tex-insert.tex") ("\\.c$" . "c-insert.c") ("\\.h$" . "h-insert.c") ("[Mm]akefile" . "makefile.inc") ("\\.bib$" . "tex-insert.tex")) "A list specifying text to insert by default into a new file. Elements look like (REGEXP . FILENAME); if the new file's name matches REGEXP, then the file FILENAME is inserted into the buffer. Only the first matching element is effective.") ;;; Establish a default value for auto-insert-directory (defvar auto-insert-directory "~/insert/" "*Directory from which auto-inserted files are taken.") (defun insert-auto-insert-files () "Insert default contents into a new file. Matches the visited file name against the elements of `auto-insert-alist'." (let ((alist auto-insert-alist) ;; remove backup suffixes from file name (name (file-name-sans-versions buffer-file-name)) (insert-file nil)) ;; find first matching alist entry (while (and (not insert-file) alist) (if (string-match (car (car alist)) name) (setq insert-file (cdr (car alist))) (setq alist (cdr alist)))) ;; Now, if we found an appropriate insert file, insert it (if insert-file (let ((file (concat auto-insert-directory insert-file))) (if (file-readable-p file) (progn (insert-file-contents file) (set-buffer-modified-p nil)) (message "Auto-insert: file %s not found" file) (sleep-for 1)))))) ;; Make this feature take effect when a nonexistent file is visited. (setq find-file-not-found-hooks (cons 'insert-auto-insert-files find-file-not-found-hooks)) ;;; autoinsert.el ends here