Mercurial > emacs
annotate lisp/progmodes/cap-words.el @ 110410:f2e111723c3a
Merge changes made in Gnus trunk.
Reimplement nnimap, and do tweaks to the rest of the code to support that.
* gnus-int.el (gnus-finish-retrieve-group-infos)
(gnus-retrieve-group-data-early): New functions.
* gnus-range.el (gnus-range-nconcat): New function.
* gnus-start.el (gnus-get-unread-articles): Support early retrieval of
data.
(gnus-read-active-for-groups): Support finishing the early retrieval of
data.
* gnus-sum.el (gnus-summary-move-article): Pass the move-to group name
if the move is internal, so that nnimap can do fast internal moves.
* gnus.el (gnus-article-special-mark-lists): Add uid/active tuples, for
nnimap usage.
* nnimap.el: Rewritten.
* nnmail.el (nnmail-inhibit-default-split-group): New internal variable
to allow the mail splitting to not return a default group. This is
useful for nnimap, which will leave unmatched mail in the inbox.
* utf7.el (utf7-encode): Autoload.
Implement shell connection.
* nnimap.el (nnimap-open-shell-stream): New function.
(nnimap-open-connection): Use it.
Get the number of lines by using BODYSTRUCTURE.
(nnimap-transform-headers): Get the number of lines in each message.
(nnimap-retrieve-headers): Query for BODYSTRUCTURE so that we get the
number of lines.
Not all servers return UIDNEXT. Work past this problem.
Remove junk from end of file.
Fix typo in "bogus" section.
Make capabilties be case-insensitive.
Require cl when compiling.
Don't bug out if the LIST command doesn't have any parameters.
2010-09-17 Knut Anders Hatlen <kahatlen@gmail.com> (tiny change)
* nnimap.el (nnimap-get-groups): Don't bug out if the LIST command
doesn't have any parameters.
(mm-text-html-renderer): Document gnus-article-html.
2010-09-17 Julien Danjou <julien@danjou.info> (tiny fix)
* mm-decode.el (mm-text-html-renderer): Document gnus-article-html.
* dgnushack.el: Define netrc-credentials.
If the user doesn't have a /etc/services, supply some sensible port defaults.
Have `unseen-or-unread' select an unread unseen article first.
(nntp-open-server): Return whether the open was successful or not.
Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current-buffer ... ).
Save result so that it doesn't say "failed" all the time.
Add ~/.authinfo to the default, since that's probably most useful for users.
Don't use the "finish" method when we're reading from the agent.
Add some more nnimap-relevant agent stuff to nnagent.el.
* nnimap.el (nnimap-with-process-buffer): Removed.
Revert one line that was changed by mistake in the last checkin.
(nnimap-open-connection): Don't error out when we can't make a connection
nnimap-related changes to avoid bugging out if we can't contact a server.
* gnus-start.el (gnus-get-unread-articles): Don't try to scan groups
from methods that are denied.
* nnimap.el (nnimap-possibly-change-group): Return nil if we can't log
in.
(nnimap-finish-retrieve-group-infos): Make sure we're not waiting for
nothing.
* gnus-sum.el (gnus-select-newsgroup): Indent.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sat, 18 Sep 2010 10:02:19 +0000 |
parents | 1d1d5d9bd884 |
children | 376148b31b5e |
rev | line source |
---|---|
90746
8f03b3660640
*** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents:
89911
diff
changeset
|
1 ;;; cap-words.el --- minor mode for motion in CapitalizedWordIdentifiers |
89311 | 2 |
106815 | 3 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
91438
9341564706fb
Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents:
90746
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
89311 | 5 |
6 ;; Author: Dave Love <fx@gnu.org> | |
7 ;; Keywords: languages | |
8 | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
10 |
52b7a8c22af5
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 |
89311 | 12 ;; it under the terms of the GNU General Public License as published by |
94673
52b7a8c22af5
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 |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; (at your option) any later version. |
89311 | 15 |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
89311 | 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 | |
94673
52b7a8c22af5
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/>. |
89311 | 23 |
24 ;;; Commentary: | |
25 | |
26 ;; Provides Capitalized Words minor mode for word movement in | |
27 ;; identifiers CapitalizedLikeThis. | |
28 | |
29 ;; Note that the same effect could be obtained by frobbing the | |
30 ;; category of upper case characters to produce word boundaries, but | |
31 ;; the necessary processing isn't done for ASCII characters. | |
32 | |
33 ;; Fixme: This doesn't work properly for mouse double clicks. | |
34 | |
35 ;;; Code: | |
36 | |
91438
9341564706fb
Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents:
90746
diff
changeset
|
37 (defun capitalized-find-word-boundary (pos limit) |
9341564706fb
Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents:
90746
diff
changeset
|
38 "Function for use in `find-word-boundary-function-table'. |
89311 | 39 Looks for word boundaries before capitals." |
40 (save-excursion | |
41 (goto-char pos) | |
42 (let (case-fold-search) | |
43 (if (<= pos limit) | |
44 ;; Fixme: Are these regexps the best? | |
45 (or (and (re-search-forward "\\=.\\w*[[:upper:]]" | |
46 limit t) | |
47 (progn (backward-char) | |
48 t)) | |
49 (re-search-forward "\\>" limit t)) | |
50 (or (re-search-backward "[[:upper:]]\\w*\\=" limit t) | |
51 (re-search-backward "\\<" limit t)))) | |
52 (point))) | |
53 | |
91438
9341564706fb
Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents:
90746
diff
changeset
|
54 |
9341564706fb
Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents:
90746
diff
changeset
|
55 (defconst capitalized-find-word-boundary-function-table |
89311 | 56 (let ((tab (make-char-table nil))) |
91438
9341564706fb
Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents:
90746
diff
changeset
|
57 (set-char-table-range tab t #'capitalized-find-word-boundary) |
89311 | 58 tab) |
91438
9341564706fb
Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents:
90746
diff
changeset
|
59 "Assigned to `find-word-boundary-function-table' in Capitalized Words mode.") |
89311 | 60 |
89499
47e2e534b750
(capitalized-words-mode): Add autoload
Dave Love <fx@gnu.org>
parents:
89311
diff
changeset
|
61 ;;;###autoload |
89311 | 62 (define-minor-mode capitalized-words-mode |
95265
de1c8bf64340
(capitalized-words-mode): Fix typos in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
94673
diff
changeset
|
63 "Toggle Capitalized Words mode. |
89311 | 64 |
65 In this minor mode, a word boundary occurs immediately before an | |
66 uppercase letter in a symbol. This is in addition to all the normal | |
67 boundaries given by the syntax and category tables. There is no | |
68 restriction to ASCII. | |
69 | |
70 E.g. the beginning of words in the following identifier are as marked: | |
71 | |
72 capitalizedWorDD | |
73 ^ ^ ^^ | |
74 | |
75 Note that these word boundaries only apply for word motion and | |
76 marking commands such as \\[forward-word]. This mode does not affect word | |
95265
de1c8bf64340
(capitalized-words-mode): Fix typos in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
94673
diff
changeset
|
77 boundaries found by regexp matching (`\\>', `\\w' &c). |
89311 | 78 |
79 This style of identifiers is common in environments like Java ones, | |
80 where underscores aren't trendy enough. Capitalization rules are | |
89499
47e2e534b750
(capitalized-words-mode): Add autoload
Dave Love <fx@gnu.org>
parents:
89311
diff
changeset
|
81 sometimes part of the language, e.g. Haskell, which may thus encourage |
47e2e534b750
(capitalized-words-mode): Add autoload
Dave Love <fx@gnu.org>
parents:
89311
diff
changeset
|
82 such a style. It is appropriate to add `capitalized-words-mode' to |
95265
de1c8bf64340
(capitalized-words-mode): Fix typos in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
94673
diff
changeset
|
83 the mode hook for programming language modes in which you encounter |
89499
47e2e534b750
(capitalized-words-mode): Add autoload
Dave Love <fx@gnu.org>
parents:
89311
diff
changeset
|
84 variables like this, e.g. `java-mode-hook'. It's unlikely to cause |
47e2e534b750
(capitalized-words-mode): Add autoload
Dave Love <fx@gnu.org>
parents:
89311
diff
changeset
|
85 trouble if such identifiers aren't used. |
89311 | 86 |
87 See also `glasses-mode' and `studlify-word'. | |
88 Obsoletes `c-forward-into-nomenclature'." | |
89 nil " Caps" nil :group 'programming | |
91438
9341564706fb
Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents:
90746
diff
changeset
|
90 (set (make-local-variable 'find-word-boundary-function-table) |
9341564706fb
Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents:
90746
diff
changeset
|
91 capitalized-find-word-boundary-function-table)) |
89311 | 92 |
93 (provide 'cap-words) | |
89911 | 94 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91438
diff
changeset
|
95 ;; arch-tag: 46513b64-fe5a-4c0b-902c-ed235c22975f |
89311 | 96 ;;; cap-words.el ends here |