Mercurial > emacs
annotate lisp/progmodes/cap-words.el @ 105170:f8ba8d6fd250
Fix typos.
* allout.el
* dired-aux.el
* dired-x.el
* epa-file.el
* ps-print.el
* shell.el
* vc-hooks.el
* vc-rcs.el
* vc-sccs.el
* vc.el
* view.el
* wdired.el
* emacs-lisp/authors.el
* net/dig.el
* net/socks.el
* net/zeroconf.el
* obsolete/vc-mcvs.el
* progmodes/gdb-mi.el
* progmodes/grep.el
* progmodes/idlw-help.el
* progmodes/idlw-shell.el
* progmodes/idlwave.el
* progmodes/inf-lisp.el
* textmodes/bibtex.el
* textmodes/ispell.el
* textmodes/reftex-toc.el
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 24 Sep 2009 01:37:14 +0000 |
parents | a9dc0e7c3f2b |
children | 1d1d5d9bd884 |
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 |
100908 | 3 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
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 |