* [kimitto@gmail.com: copyright-limit's value]
@ 2007-07-29 2:22 Richard Stallman
2007-07-29 20:11 ` Fwd: copyright-limit's value Stefan Monnier
0 siblings, 1 reply; 2+ messages in thread
From: Richard Stallman @ 2007-07-29 2:22 UTC (permalink / raw)
To: emacs-devel
Would someone please DTRT and ack? Since the bug is in Emacs 22,
please put the fix in Emacs 22.
------- Start of forwarded message -------
X-Spam-Status: No, score=-0.9 required=5.0 tests=ALL_TRUSTED,NO_REAL_NAME
autolearn=failed version=3.1.0
From: kimitto@gmail.com
Newsgroups: gnu.emacs.bug
Date: Fri, 27 Jul 2007 10:06:35 -0700
Organization: http://groups.google.com
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-2022-jp"
Complaints-To: groups-abuse@google.com
Injection-Info: i13g2000prf.googlegroups.com; posting-host=60.42.99.104;
posting-account=ps2QrAMAAAA6_jCuRt2JEIpn5Otqf_w0
Xref: shelby.stanford.edu gnu.emacs.bug:43160
To: bug-gnu-emacs@gnu.org
Subject: copyright-limit's value
Environment
In GNU Emacs 22.1.1 (i386-mingw-nt5.1.2600)
of 2007-07-08 on CUBE
Windowing system distributor `MW32', version 11.0.1
configured using `configure --with-gcc (3.4)'
copyright-limit's doc-string is this one.
"*Don't try to update copyright beyond this position unless
interactive.
A value of nil means to search whole buffer."
1. start emacs with -q option
2. M-: (setq copyright-limit nil)
3. and M-x copyright-update
error--> Wrong type argument: number-or-marker-p, nil
re-search-forward() 's second argument causes this error.
Its value is selectable as 'nil', and I hope so, thus see patch file.
Best regards,
Kimit Yada
diff -u c\:/meadow/lisp/emacs-lisp/copyright.el c\:/meadow/lisp/emacs-
lisp/copyright.mod.el
- --- c:/meadow/lisp/emacs-lisp/copyright.el 2007-07-08
14:27:23.001000000 +0900
+++ c:/meadow/lisp/emacs-lisp/copyright.mod.el 2007-07-20
17:19:12.000000000 +0900
@@ -83,7 +83,8 @@
"String representing the current year.")
(defun copyright-update-year (replace noquery)
- - (when (re-search-forward copyright-regexp (+ (point) copyright-
limit) t)
+ (when (re-search-forward copyright-regexp
+ (and copyright-limit (+ (point) copyright-
limit)) t)
;; If the years are continued onto multiple lined
;; that are marked as comments, skip to the end of the years
anyway.
(while (save-excursion
@@ -162,7 +163,7 @@
(re-search-forward "\\(the Free Software Foundation;\
either \\|; a\\^u eldono \\([0-9]+\\)a, ? a\\^u (la\\^u via \\)\
version \\([0-9]+\\), or (at"
- - (+ (point) copyright-limit) t)
+ (and copyright-limit (+ (point) copyright-limit)) t)
(not (string= (match-string 3) copyright-current-gpl-
version))
(or noquery
(y-or-n-p (concat "Replace GPL version by "
@@ -184,7 +185,8 @@
(interactive)
(widen)
(goto-char (point-min))
- - (if (re-search-forward copyright-regexp (+ (point) copyright-limit)
t)
+ (if (re-search-forward copyright-regexp
+ (and copyright-limit (+ (point) copyright-
limit)) t)
(let ((s (match-beginning 2))
(e (copy-marker (1+ (match-end 2))))
(p (make-marker))
@@ -224,7 +226,7 @@
"Copyright (C) " `(substring (current-time-string) -4) " by "
(or (getenv "ORGANIZATION")
str)
- - '(if (> (point) (+ (point-min) copyright-limit))
+ '(if (and copyright-limit (> (point) (+ (point-min) copyright-
limit)))
(message "Copyright extends beyond `copyright-limit' and won't
be updated automatically."))
comment-end \n)
_______________________________________________
bug-gnu-emacs mailing list
bug-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-gnu-emacs
------- End of forwarded message -------
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: Fwd: copyright-limit's value
2007-07-29 2:22 [kimitto@gmail.com: copyright-limit's value] Richard Stallman
@ 2007-07-29 20:11 ` Stefan Monnier
0 siblings, 0 replies; 2+ messages in thread
From: Stefan Monnier @ 2007-07-29 20:11 UTC (permalink / raw)
To: rms; +Cc: emacs-devel
> Would someone please DTRT and ack? Since the bug is in Emacs 22,
> please put the fix in Emacs 22.
Installed in the 22 branch,
Stefan
> ------- Start of forwarded message -------
> X-Spam-Status: No, score=-0.9 required=5.0 tests=ALL_TRUSTED,NO_REAL_NAME
> autolearn=failed version=3.1.0
> From: kimitto@gmail.com
> Newsgroups: gnu.emacs.bug
> Date: Fri, 27 Jul 2007 10:06:35 -0700
> Organization: http://groups.google.com
> Mime-Version: 1.0
> Content-Type: text/plain; charset="iso-2022-jp"
> Complaints-To: groups-abuse@google.com
> Injection-Info: i13g2000prf.googlegroups.com; posting-host=60.42.99.104;
> posting-account=ps2QrAMAAAA6_jCuRt2JEIpn5Otqf_w0
> Xref: shelby.stanford.edu gnu.emacs.bug:43160
> To: bug-gnu-emacs@gnu.org
> Subject: copyright-limit's value
> Environment
> In GNU Emacs 22.1.1 (i386-mingw-nt5.1.2600)
> of 2007-07-08 on CUBE
> Windowing system distributor `MW32', version 11.0.1
> configured using `configure --with-gcc (3.4)'
> copyright-limit's doc-string is this one.
> "*Don't try to update copyright beyond this position unless
> interactive.
> A value of nil means to search whole buffer."
> 1. start emacs with -q option
> 2. M-: (setq copyright-limit nil)
> 3. and M-x copyright-update
error--> Wrong type argument: number-or-marker-p, nil
> re-search-forward() 's second argument causes this error.
> Its value is selectable as 'nil', and I hope so, thus see patch file.
> Best regards,
> Kimit Yada
> diff -u c\:/meadow/lisp/emacs-lisp/copyright.el c\:/meadow/lisp/emacs-
> lisp/copyright.mod.el
> - --- c:/meadow/lisp/emacs-lisp/copyright.el 2007-07-08
> 14:27:23.001000000 +0900
> +++ c:/meadow/lisp/emacs-lisp/copyright.mod.el 2007-07-20
> 17:19:12.000000000 +0900
> @@ -83,7 +83,8 @@
> "String representing the current year.")
> (defun copyright-update-year (replace noquery)
> - - (when (re-search-forward copyright-regexp (+ (point) copyright-
> limit) t)
> + (when (re-search-forward copyright-regexp
> + (and copyright-limit (+ (point) copyright-
> limit)) t)
> ;; If the years are continued onto multiple lined
> ;; that are marked as comments, skip to the end of the years
> anyway.
> (while (save-excursion
> @@ -162,7 +163,7 @@
> (re-search-forward "\\(the Free Software Foundation;\
> either \\|; a\\^u eldono \\([0-9]+\\)a, ? a\\^u (la\\^u via \\)\
> version \\([0-9]+\\), or (at"
> - - (+ (point) copyright-limit) t)
> + (and copyright-limit (+ (point) copyright-limit)) t)
> (not (string= (match-string 3) copyright-current-gpl-
> version))
> (or noquery
> (y-or-n-p (concat "Replace GPL version by "
> @@ -184,7 +185,8 @@
> (interactive)
> (widen)
> (goto-char (point-min))
> - - (if (re-search-forward copyright-regexp (+ (point) copyright-limit)
> t)
> + (if (re-search-forward copyright-regexp
> + (and copyright-limit (+ (point) copyright-
> limit)) t)
> (let ((s (match-beginning 2))
> (e (copy-marker (1+ (match-end 2))))
> (p (make-marker))
> @@ -224,7 +226,7 @@
> "Copyright (C) " `(substring (current-time-string) -4) " by "
> (or (getenv "ORGANIZATION")
> str)
> - - '(if (> (point) (+ (point-min) copyright-limit))
> + '(if (and copyright-limit (> (point) (+ (point-min) copyright-
> limit)))
> (message "Copyright extends beyond `copyright-limit' and won't
> be updated automatically."))
> comment-end \n)
> _______________________________________________
> bug-gnu-emacs mailing list
> bug-gnu-emacs@gnu.org
> http://lists.gnu.org/mailman/listinfo/bug-gnu-emacs
> ------- End of forwarded message -------
> _______________________________________________
> Emacs-devel mailing list
> Emacs-devel@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-devel
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2007-07-29 20:11 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2007-07-29 2:22 [kimitto@gmail.com: copyright-limit's value] Richard Stallman
2007-07-29 20:11 ` Fwd: copyright-limit's value Stefan Monnier
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.