Mercurial > emacs
annotate lisp/language/georgian.el @ 107653:bfde3c2dbef5
Make occur handle multi-line matches cleanly with context.
http://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01280.html
* replace.el (occur-accumulate-lines): Add optional arg `pt'.
(occur-engine): Add local variables `ret', `prev-after-lines',
`prev-lines'. Use more arguments for `occur-context-lines'.
Set first elem of its returned list to `data', and the second elem
to `prev-after-lines'. Don't print the separator line.
In the end, print remaining context after-lines.
(occur-context-lines): Add new arguments `begpt', `endpt',
`lines', `prev-lines', `prev-after-lines'. Rewrite to combine
after-lines of the previous match with before-lines of the
current match and not overlap them. Return a list with two
values: the output line and the list of context after-lines.
* search.texi (Other Repeating Search): Remove line that `occur'
can not handle multiline matches.
* occur-testsuite.el (occur-tests): Add tests for context lines.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Tue, 30 Mar 2010 19:03:08 +0300 |
parents | 1d1d5d9bd884 |
children | 376148b31b5e |
rev | line source |
---|---|
47726
33d53d287ee4
Add "no-byte-compile: t" in first line.
Juanma Barranquero <lekktu@gmail.com>
parents:
46673
diff
changeset
|
1 ;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*- |
42057 | 2 |
106815 | 3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
74544 | 4 ;; Free Software Foundation, Inc. |
42057 | 5 |
6 ;; Author: Dave Love <fx@gnu.org> | |
7 ;; Keywords: i18n | |
8 | |
42320 | 9 ;; This file is part of GNU Emacs. |
10 | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
42057 | 12 ;; it under the terms of the GNU General Public License as published by |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; (at your option) any later version. |
42057 | 15 |
45357 | 16 ;; GNU Emacs is distributed in the hope that it will be useful, |
42057 | 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 | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
42057 | 23 |
24 ;;; Commentary: | |
25 | |
26 ;;; Code: | |
27 | |
89391
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
28 (define-coding-system 'georgian-ps |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
29 "Georgian PS encoding" |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
30 :coding-type 'charset |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
31 :mnemonic ?G |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
32 :charset-list '(georgian-ps)) |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
33 |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
34 (define-coding-system 'georgian-academy |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
35 "Georgian Academy encoding" |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
36 :coding-type 'charset |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
37 :mnemonic ?G |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
38 :charset-list '(georgian-academy)) |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
39 |
42057 | 40 (set-language-info-alist |
41 "Georgian" `((coding-system georgian-ps) | |
42 (coding-priority georgian-ps) | |
43 (input-method . "georgian") | |
88807
15a8da83223b
("Georgian"): Delete code-pages feature,
Dave Love <fx@gnu.org>
parents:
42320
diff
changeset
|
44 (nonascii-translation . georgian-ps) |
42057 | 45 (documentation . "Support for georgian-ps character set.")) |
46 '("European")) ; fixme: is this appropriate for | |
47 ; a non-Latin script? | |
48 | |
49 (provide 'georgian) | |
50 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
51 ;; arch-tag: 15499fbb-26d4-4a13-9d78-135eef7d32f5 |
42057 | 52 ;;; georgian.el ends here |