Mercurial > emacs
annotate lisp/calc/calcsel2.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 |
---|---|
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1 ;;; calcsel2.el --- selection functions for Calc |
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
2 |
64325
1db49616ce05
Update copyright information.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62442
diff
changeset
|
3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, |
106815 | 4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
5 |
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
6 ;; Author: David Gillespie <daveg@synaptics.com> |
77465
1154f082efd9
Update maintainer's address.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
76595
diff
changeset
|
7 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com> |
40785 | 8 |
9 ;; This file is part of GNU Emacs. | |
10 | |
94654
6c9af2bfcfee
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 |
76595
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
94654
6c9af2bfcfee
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 |
6c9af2bfcfee
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; (at your option) any later version. |
40785 | 15 |
76595
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
19 ;; GNU General Public License for more details. |
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
20 |
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
94654
6c9af2bfcfee
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/>. |
40785 | 23 |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
24 ;;; Commentary: |
40785 | 25 |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
26 ;;; Code: |
40785 | 27 |
28 ;; This file is autoloaded from calc-ext.el. | |
58684
0c19e5f0e618
Add a provide statement.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58554
diff
changeset
|
29 |
40785 | 30 (require 'calc-ext) |
31 (require 'calc-macs) | |
32 | |
58554
aed8d65fbf66
(calc-keep-selection): Declare it.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
33 ;; The variable calc-keep-selection is declared and set in calc-sel.el. |
aed8d65fbf66
(calc-keep-selection): Declare it.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
34 (defvar calc-keep-selection) |
40785 | 35 |
62166
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
36 ;; The variable calc-sel-reselect is local to the methods below, |
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
37 ;; but is used by some functions in calc-sel.el which are called |
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
38 ;; by the functions below. |
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
39 |
40785 | 40 (defun calc-commute-left (arg) |
41 (interactive "p") | |
42 (if (< arg 0) | |
43 (calc-commute-right (- arg)) | |
44 (calc-wrapper | |
45 (calc-preserve-point) | |
46 (let ((num (max 1 (calc-locate-cursor-element (point)))) | |
62166
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
47 (calc-sel-reselect calc-keep-selection)) |
40785 | 48 (if (= arg 0) (setq arg nil)) |
49 (while (or (null arg) (>= (setq arg (1- arg)) 0)) | |
50 (let* ((entry (calc-top num 'entry)) | |
51 (expr (car entry)) | |
52 (sel (calc-auto-selection entry)) | |
53 parent new) | |
54 (or (and sel | |
55 (consp (setq parent (calc-find-assoc-parent-formula | |
56 expr sel)))) | |
57 (error "No term is selected")) | |
58 (if (and calc-assoc-selections | |
59 (assq (car parent) calc-assoc-ops)) | |
60 (let ((outer (calc-find-parent-formula parent sel))) | |
61 (if (eq sel (nth 2 outer)) | |
62 (setq new (calc-replace-sub-formula | |
63 parent outer | |
64 (cond | |
65 ((memq (car outer) | |
66 (nth 1 (assq (car-safe (nth 1 outer)) | |
67 calc-assoc-ops))) | |
68 (let* ((other (nth 2 (nth 1 outer))) | |
69 (new (calc-build-assoc-term | |
70 (car (nth 1 outer)) | |
71 (calc-build-assoc-term | |
72 (car outer) | |
73 (nth 1 (nth 1 outer)) | |
74 sel) | |
75 other))) | |
76 (setq sel (nth 2 (nth 1 new))) | |
77 new)) | |
78 ((eq (car outer) '-) | |
79 (calc-build-assoc-term | |
80 '+ | |
81 (setq sel (math-neg sel)) | |
82 (nth 1 outer))) | |
83 ((eq (car outer) '/) | |
84 (calc-build-assoc-term | |
85 '* | |
86 (setq sel (calcFunc-div 1 sel)) | |
87 (nth 1 outer))) | |
88 (t (calc-build-assoc-term | |
89 (car outer) sel (nth 1 outer)))))) | |
90 (let ((next (calc-find-parent-formula parent outer))) | |
91 (if (not (and (consp next) | |
92 (eq outer (nth 2 next)) | |
93 (eq (car next) (car outer)))) | |
94 (setq new nil) | |
95 (setq new (calc-build-assoc-term | |
96 (car next) | |
97 sel | |
98 (calc-build-assoc-term | |
99 (car next) (nth 1 next) (nth 2 outer))) | |
100 sel (nth 1 new) | |
101 new (calc-replace-sub-formula | |
102 parent next new)))))) | |
103 (if (eq (nth 1 parent) sel) | |
104 (setq new nil) | |
105 (let ((p (nthcdr (1- (calc-find-sub-formula parent sel)) | |
106 (setq new (copy-sequence parent))))) | |
107 (setcar (cdr p) (car p)) | |
108 (setcar p sel)))) | |
109 (if (null new) | |
110 (if arg | |
111 (error "Term is already leftmost") | |
62166
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
112 (or calc-sel-reselect |
40785 | 113 (calc-pop-push-list 1 (list expr) num '(nil))) |
114 (setq arg 0)) | |
115 (calc-pop-push-record-list | |
116 1 "left" | |
117 (list (calc-replace-sub-formula expr parent new)) | |
118 num | |
62166
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
119 (list (and (or (not (eq arg 0)) calc-sel-reselect) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
120 sel)))))))))) |
40785 | 121 |
122 (defun calc-commute-right (arg) | |
123 (interactive "p") | |
124 (if (< arg 0) | |
125 (calc-commute-left (- arg)) | |
126 (calc-wrapper | |
127 (calc-preserve-point) | |
128 (let ((num (max 1 (calc-locate-cursor-element (point)))) | |
62166
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
129 (calc-sel-reselect calc-keep-selection)) |
40785 | 130 (if (= arg 0) (setq arg nil)) |
131 (while (or (null arg) (>= (setq arg (1- arg)) 0)) | |
132 (let* ((entry (calc-top num 'entry)) | |
133 (expr (car entry)) | |
134 (sel (calc-auto-selection entry)) | |
135 parent new) | |
136 (or (and sel | |
137 (consp (setq parent (calc-find-assoc-parent-formula | |
138 expr sel)))) | |
139 (error "No term is selected")) | |
140 (if (and calc-assoc-selections | |
141 (assq (car parent) calc-assoc-ops)) | |
142 (let ((outer (calc-find-parent-formula parent sel))) | |
143 (if (eq sel (nth 1 outer)) | |
144 (setq new (calc-replace-sub-formula | |
145 parent outer | |
146 (if (memq (car outer) | |
147 (nth 2 (assq (car-safe (nth 2 outer)) | |
148 calc-assoc-ops))) | |
149 (let ((other (nth 1 (nth 2 outer)))) | |
150 (calc-build-assoc-term | |
151 (car outer) | |
152 other | |
153 (calc-build-assoc-term | |
154 (car (nth 2 outer)) | |
155 sel | |
156 (nth 2 (nth 2 outer))))) | |
157 (let ((new (cond | |
158 ((eq (car outer) '-) | |
159 (calc-build-assoc-term | |
160 '+ | |
161 (math-neg (nth 2 outer)) | |
162 sel)) | |
163 ((eq (car outer) '/) | |
164 (calc-build-assoc-term | |
165 '* | |
166 (calcFunc-div 1 (nth 2 outer)) | |
167 sel)) | |
168 (t (calc-build-assoc-term | |
169 (car outer) | |
170 (nth 2 outer) | |
171 sel))))) | |
172 (setq sel (nth 2 new)) | |
173 new)))) | |
174 (let ((next (calc-find-parent-formula parent outer))) | |
175 (if (not (and (consp next) | |
176 (eq outer (nth 1 next)))) | |
177 (setq new nil) | |
178 (setq new (calc-build-assoc-term | |
179 (car outer) | |
180 (calc-build-assoc-term | |
181 (car next) (nth 1 outer) (nth 2 next)) | |
182 sel) | |
183 sel (nth 2 new) | |
184 new (calc-replace-sub-formula | |
185 parent next new)))))) | |
186 (if (eq (nth (1- (length parent)) parent) sel) | |
187 (setq new nil) | |
188 (let ((p (nthcdr (calc-find-sub-formula parent sel) | |
189 (setq new (copy-sequence parent))))) | |
190 (setcar p (nth 1 p)) | |
191 (setcar (cdr p) sel)))) | |
192 (if (null new) | |
193 (if arg | |
194 (error "Term is already rightmost") | |
62166
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
195 (or calc-sel-reselect |
40785 | 196 (calc-pop-push-list 1 (list expr) num '(nil))) |
197 (setq arg 0)) | |
198 (calc-pop-push-record-list | |
199 1 "rght" | |
200 (list (calc-replace-sub-formula expr parent new)) | |
201 num | |
62166
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
202 (list (and (or (not (eq arg 0)) calc-sel-reselect) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
203 sel)))))))))) |
40785 | 204 |
205 (defun calc-build-assoc-term (op lhs rhs) | |
206 (cond ((and (eq op '+) (or (math-looks-negp rhs) | |
207 (and (eq (car-safe rhs) 'cplx) | |
208 (math-negp (nth 1 rhs)) | |
209 (eq (nth 2 rhs) 0)))) | |
210 (list '- lhs (math-neg rhs))) | |
211 ((and (eq op '-) (or (math-looks-negp rhs) | |
212 (and (eq (car-safe rhs) 'cplx) | |
213 (math-negp (nth 1 rhs)) | |
214 (eq (nth 2 rhs) 0)))) | |
215 (list '+ lhs (math-neg rhs))) | |
216 ((and (eq op '*) (and (eq (car-safe rhs) '/) | |
217 (or (math-equal-int (nth 1 rhs) 1) | |
218 (equal (nth 1 rhs) '(cplx 1 0))))) | |
219 (list '/ lhs (nth 2 rhs))) | |
220 ((and (eq op '/) (and (eq (car-safe rhs) '/) | |
221 (or (math-equal-int (nth 1 rhs) 1) | |
222 (equal (nth 1 rhs) '(cplx 1 0))))) | |
223 (list '/ lhs (nth 2 rhs))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
224 (t (list op lhs rhs)))) |
40785 | 225 |
226 (defun calc-sel-unpack () | |
227 (interactive) | |
228 (calc-wrapper | |
229 (calc-preserve-point) | |
230 (let* ((num (max 1 (calc-locate-cursor-element (point)))) | |
62166
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
231 (calc-sel-reselect calc-keep-selection) |
40785 | 232 (entry (calc-top num 'entry)) |
233 (expr (car entry)) | |
234 (sel (or (calc-auto-selection entry) expr))) | |
235 (or (and (not (math-primp sel)) | |
236 (= (length sel) 2)) | |
237 (error "Selection must be a function of one argument")) | |
238 (calc-pop-push-record-list 1 "unpk" | |
239 (list (calc-replace-sub-formula | |
240 expr sel (nth 1 sel))) | |
241 num | |
62166
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
242 (list (and calc-sel-reselect (nth 1 sel))))))) |
40785 | 243 |
244 (defun calc-sel-isolate () | |
245 (interactive) | |
246 (calc-slow-wrapper | |
247 (calc-preserve-point) | |
248 (let* ((num (max 1 (calc-locate-cursor-element (point)))) | |
62166
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
249 (calc-sel-reselect calc-keep-selection) |
40785 | 250 (entry (calc-top num 'entry)) |
251 (expr (car entry)) | |
252 (sel (or (calc-auto-selection entry) (error "No selection"))) | |
253 (eqn sel) | |
254 soln) | |
255 (while (and (or (consp (setq eqn (calc-find-parent-formula expr eqn))) | |
256 (error "Selection must be a member of an equation")) | |
257 (not (assq (car eqn) calc-tweak-eqn-table)))) | |
258 (setq soln (math-solve-eqn eqn sel calc-hyperbolic-flag)) | |
259 (or soln | |
260 (error "No solution found")) | |
261 (setq soln (calc-encase-atoms | |
262 (if (eq (not (calc-find-sub-formula (nth 2 eqn) sel)) | |
263 (eq (nth 1 soln) sel)) | |
264 soln | |
265 (list (nth 1 (assq (car soln) calc-tweak-eqn-table)) | |
266 (nth 2 soln) | |
267 (nth 1 soln))))) | |
268 (calc-pop-push-record-list 1 "isol" | |
269 (list (calc-replace-sub-formula | |
270 expr eqn soln)) | |
271 num | |
62166
9aa364d49b37
(calc-commute-left, calc-commute-right, calc-sel-unpack)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58684
diff
changeset
|
272 (list (and calc-sel-reselect sel))) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
273 (calc-handle-whys)))) |
40785 | 274 |
275 (defun calc-sel-commute (many) | |
276 (interactive "P") | |
277 (let ((calc-assoc-selections nil)) | |
278 (calc-rewrite-selection "CommuteRules" many "cmut")) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
279 (calc-set-mode-line)) |
40785 | 280 |
281 (defun calc-sel-jump-equals (many) | |
282 (interactive "P") | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
283 (calc-rewrite-selection "JumpRules" many "jump")) |
40785 | 284 |
285 (defun calc-sel-distribute (many) | |
286 (interactive "P") | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
287 (calc-rewrite-selection "DistribRules" many "dist")) |
40785 | 288 |
289 (defun calc-sel-merge (many) | |
290 (interactive "P") | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
291 (calc-rewrite-selection "MergeRules" many "merg")) |
40785 | 292 |
293 (defun calc-sel-negate (many) | |
294 (interactive "P") | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
295 (calc-rewrite-selection "NegateRules" many "jneg")) |
40785 | 296 |
297 (defun calc-sel-invert (many) | |
298 (interactive "P") | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
299 (calc-rewrite-selection "InvertRules" many "jinv")) |
40785 | 300 |
58684
0c19e5f0e618
Add a provide statement.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58554
diff
changeset
|
301 (provide 'calcsel2) |
0c19e5f0e618
Add a provide statement.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58554
diff
changeset
|
302 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79702
diff
changeset
|
303 ;; arch-tag: 7c5b8d65-b8f0-45d9-820d-9930f8ee114b |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
304 ;;; calcsel2.el ends here |