view etc/srecode/make.srt @ 106241:7ce04dfc904d

Mouse-wheel scrolling for DocView Continuous mode. (Bug#4896) * mwheel.el (mwheel-scroll-up-function) (mwheel-scroll-down-function): New defvars. (mwheel-scroll): Funcall `mwheel-scroll-up-function' instead of `scroll-up', and `mwheel-scroll-down-function' instead of `scroll-down'. * doc-view.el (doc-view-scroll-up-or-next-page) (doc-view-scroll-down-or-previous-page): Add optional ARG. Use this ARG in the call to image-scroll-up/image-scroll-down. Change `interactive' spec to "P". Goto next/previous page only when `doc-view-continuous-mode' is non-nil or ARG is nil (for the SPC/DEL case). Doc fix. (doc-view-next-line-or-next-page) (doc-view-previous-line-or-previous-page): Rename arg to ARG for consistency. (doc-view-mode): Set buffer-local `mwheel-scroll-up-function' to `doc-view-scroll-up-or-next-page', and buffer-local `mwheel-scroll-down-function' to `doc-view-scroll-down-or-previous-page'.

;; make.srt

;; Copyright (C) 2009 Free Software Foundation, Inc.

;; Author: Eric M. Ludlam <[e-mail]>

;; 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 3 of the License, 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.  If not, see <http://www.gnu.org/licenses/>.

set mode "makefile-mode"
set escape_start "{{"
set escape_end "}}"
set comment_start "#"
set comment_prefix "#"
set TAB "\t"

context file

template empty :file :user
----
{{>:filecomment}}

all: {{^}}

{{comment_start}} end
----

context declaration

;; GNU Make has real functions you can define, but semantic uses
;; 'function for rules.  This is unfortunate, and should be fixed.
template rule :blank
----
{{?NAME}}:
{{TAB}}{{^}}
----
bind "r"

template inferencerule :blank
----
%.{{?SRCEXTENSION}}: %.{{?DESTEXTENSION}}
{{TAB}}{{^}}
----
bind "i"

template phonyrule :blank
----
.PHONY {{?NAME}}
{{NAME}}:
{{TAB}}{{^}}
----
bind "p"


template variable :blank
"Insert a variable declaration."
----
{{?NAME}}:= {{^}}
----
bind "v"

template include :blank
----
include {{?NAME}}
----

;; end