Using saved parent location: http://bzr.savannah.gnu.org/r/emacs/trunk/ Now on revision 102295. ------------------------------------------------------------ revno: 102295 committer: Glenn Morris branch nick: trunk timestamp: Tue 2010-11-09 00:00:46 -0800 message: * lisp/progmodes/meta-mode.el: (meta-indent-line): Simplify. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-11-09 07:47:01 +0000 +++ lisp/ChangeLog 2010-11-09 08:00:46 +0000 @@ -1,6 +1,7 @@ 2010-11-09 Glenn Morris * progmodes/meta-mode.el: Remove leading `*' from defcustom docs. + (meta-indent-line): Simplify. * vc/emerge.el (emerge-line-number-in-buf): * textmodes/ispell.el (ispell-region): === modified file 'lisp/progmodes/meta-mode.el' --- lisp/progmodes/meta-mode.el 2010-11-09 07:47:01 +0000 +++ lisp/progmodes/meta-mode.el 2010-11-09 08:00:46 +0000 @@ -575,12 +575,11 @@ "Indent the line containing point as Metafont or MetaPost source." (interactive) (let ((indent (meta-indent-calculate))) - (save-excursion - (if (/= (current-indentation) indent) - (let ((beg (line-beginning-position)) - (end (progn (back-to-indentation) (point)))) - (delete-region beg end) - (indent-to indent)))) + (if (/= (current-indentation) indent) + (save-excursion + (delete-region (line-beginning-position) + (progn (back-to-indentation) (point))) + (indent-to indent))) (if (< (current-column) indent) (back-to-indentation)))) ------------------------------------------------------------ revno: 102294 committer: Glenn Morris branch nick: trunk timestamp: Mon 2010-11-08 23:47:01 -0800 message: * lisp/progmodes/meta-mode.el: Remove leading `*' from defcustom docs. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-11-09 05:33:07 +0000 +++ lisp/ChangeLog 2010-11-09 07:47:01 +0000 @@ -1,5 +1,7 @@ 2010-11-09 Glenn Morris + * progmodes/meta-mode.el: Remove leading `*' from defcustom docs. + * vc/emerge.el (emerge-line-number-in-buf): * textmodes/ispell.el (ispell-region): * textmodes/fill.el (current-fill-column): === modified file 'lisp/progmodes/meta-mode.el' --- lisp/progmodes/meta-mode.el 2010-11-09 05:33:07 +0000 +++ lisp/progmodes/meta-mode.el 2010-11-09 07:47:01 +0000 @@ -517,24 +517,24 @@ ;;; Indentation. (defcustom meta-indent-level 2 - "*Indentation of begin-end blocks in Metafont or MetaPost mode." + "Indentation of begin-end blocks in Metafont or MetaPost mode." :type 'integer :group 'meta-font) (defcustom meta-left-comment-regexp "%%+" - "*Regexp matching comments that should be placed on the left margin." + "Regexp matching comments that should be placed on the left margin." :type 'regexp :group 'meta-font) (defcustom meta-right-comment-regexp nil - "*Regexp matching comments that should be placed to the right margin." + "Regexp matching comments that should be placed to the right margin." :type '(choice regexp (const :tag "None" nil)) :group 'meta-font) (defcustom meta-ignore-comment-regexp "%[^%]" - "*Regexp matching comments that whose indentation should not be touched." + "Regexp matching comments that whose indentation should not be touched." :type 'regexp :group 'meta-font) @@ -543,21 +543,21 @@ (concat "\\(begin\\(char\\|fig\\|gr\\(aph\\|oup\\)\\|logochar\\)\\|" "def\\|for\\(\\|ever\\|suffixes\\)\\|if\\|mode_def\\|" "primarydef\\|secondarydef\\|tertiarydef\\|vardef\\)") - "*Regexp matching the beginning of environments to be indented." + "Regexp matching the beginning of environments to be indented." :type 'regexp :group 'meta-font) (defcustom meta-end-environment-regexp (concat "\\(end\\(char\\|def\\|f\\(ig\\|or\\)\\|gr\\(aph\\|oup\\)\\)" "\\|fi\\)") - "*Regexp matching the end of environments to be indented." + "Regexp matching the end of environments to be indented." :type 'regexp :group 'meta-font) (defcustom meta-within-environment-regexp ; (concat "\\(e\\(lse\\(\\|if\\)\\|xit\\(if\\|unless\\)\\)\\)") (concat "\\(else\\(\\|if\\)\\)") - "*Regexp matching keywords within environments not to be indented." + "Regexp matching keywords within environments not to be indented." :type 'regexp :group 'meta-font) @@ -744,13 +744,13 @@ (defcustom meta-begin-defun-regexp (concat "\\(begin\\(char\\|fig\\|logochar\\)\\|def\\|mode_def\\|" "primarydef\\|secondarydef\\|tertiarydef\\|vardef\\)") - "*Regexp matching beginning of defuns in Metafont or MetaPost mode." + "Regexp matching beginning of defuns in Metafont or MetaPost mode." :type 'regexp :group 'meta-font) (defcustom meta-end-defun-regexp (concat "\\(end\\(char\\|def\\|fig\\)\\)") - "*Regexp matching the end of defuns in Metafont or MetaPost mode." + "Regexp matching the end of defuns in Metafont or MetaPost mode." :type 'regexp :group 'meta-font) @@ -955,21 +955,21 @@ ;;; Hook variables. (defcustom meta-mode-load-hook nil - "*Hook evaluated when first loading Metafont or MetaPost mode." + "Hook evaluated when first loading Metafont or MetaPost mode." :type 'hook :group 'meta-font) (defcustom meta-common-mode-hook nil - "*Hook evaluated by both `metafont-mode' and `metapost-mode'." + "Hook evaluated by both `metafont-mode' and `metapost-mode'." :type 'hook :group 'meta-font) (defcustom metafont-mode-hook nil - "*Hook evaluated by `metafont-mode' after `meta-common-mode-hook'." + "Hook evaluated by `metafont-mode' after `meta-common-mode-hook'." :type 'hook :group 'meta-font) (defcustom metapost-mode-hook nil - "*Hook evaluated by `metapost-mode' after `meta-common-mode-hook'." + "Hook evaluated by `metapost-mode' after `meta-common-mode-hook'." :type 'hook :group 'meta-font) ------------------------------------------------------------ revno: 102293 committer: Glenn Morris branch nick: trunk timestamp: Mon 2010-11-08 21:33:07 -0800 message: Replace still more end-of-line etc with line-end-position, etc. * lisp/gnus/nnbabyl.el (nnbabyl-request-move-article, nnbabyl-delete-mail) (nnbabyl-check-mbox): Use point-at-bol. * lisp/cedet/semantic/lex.el (semantic-lex-ignore-comments, semantic-flex): * lisp/cedet/semantic/grammar.el (semantic-grammar-epilogue): * lisp/cedet/ede/speedbar.el (ede-find-nearest-file-line): * lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules): * lisp/cedet/ede/autoconf-edit.el (autoconf-delete-parameter): Use point-at-bol and point-at-eol. * lisp/vc/emerge.el (emerge-line-number-in-buf): * lisp/textmodes/ispell.el (ispell-region): * lisp/textmodes/fill.el (current-fill-column): * lisp/progmodes/xscheme.el (xscheme-send-current-line): * lisp/progmodes/vhdl-mode.el (vhdl-current-line, vhdl-line-copy): * lisp/progmodes/tcl.el (tcl-hairy-scan-for-comment): * lisp/progmodes/sh-script.el (sh-handle-prev-do): * lisp/progmodes/meta-mode.el (meta-indent-line): * lisp/progmodes/idlwave.el (idlwave-goto-comment, idlwave-fill-paragraph) (idlwave-in-quote): * lisp/progmodes/idlw-shell.el (idlwave-shell-current-frame) (idlwave-shell-update-bp-overlays, idlwave-shell-sources-filter): * lisp/progmodes/fortran.el (fortran-looking-at-if-then): * lisp/progmodes/etags.el (find-tag-in-order, etags-snarf-tag): * lisp/progmodes/cperl-mode.el (cperl-sniff-for-indent) (cperl-find-pods-heres): * lisp/progmodes/ada-mode.el (ada-get-current-indent, ada-narrow-to-defun): * lisp/net/quickurl.el (quickurl-list-insert): * lisp/net/ldap.el (ldap-search-internal): * lisp/net/eudc.el (eudc-expand-inline): * lisp/mail/sendmail.el (sendmail-send-it): * lisp/mail/mspools.el (mspools-visit-spool, mspools-get-spool-name): * lisp/emulation/viper-cmd.el (viper-paren-match, viper-backward-indent) (viper-brac-function): * lisp/calc/calc-yank.el (calc-do-grab-region): * lisp/calc/calc-keypd.el (calc-keypad-press): * lisp/term.el (term-move-columns, term-insert-spaces): * lisp/speedbar.el (speedbar-highlight-one-tag-line): * lisp/simple.el (current-word): * lisp/mouse-drag.el (mouse-drag-should-do-col-scrolling): * lisp/info.el (Info-find-node-in-buffer-1, Info-follow-reference) (Info-scroll-down): * lisp/hippie-exp.el (he-line-beg): * lisp/epa.el (epa--marked-keys): * lisp/dired-aux.el (dired-kill-line, dired-do-kill-lines) (dired-update-file-line, dired-add-entry, dired-remove-entry) (dired-relist-entry): * lisp/buff-menu.el (Buffer-menu-buffer): * lisp/array.el (current-line): * lisp/allout.el (allout-resolve-xref) (allout-latex-verbatim-quote-curr-line): Replace yet more uses of end-of-line etc with line-end-position. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-11-08 20:01:01 +0000 +++ lisp/ChangeLog 2010-11-09 05:33:07 +0000 @@ -1,3 +1,48 @@ +2010-11-09 Glenn Morris + + * vc/emerge.el (emerge-line-number-in-buf): + * textmodes/ispell.el (ispell-region): + * textmodes/fill.el (current-fill-column): + * progmodes/xscheme.el (xscheme-send-current-line): + * progmodes/vhdl-mode.el (vhdl-current-line, vhdl-line-copy): + * progmodes/tcl.el (tcl-hairy-scan-for-comment): + * progmodes/sh-script.el (sh-handle-prev-do): + * progmodes/meta-mode.el (meta-indent-line): + * progmodes/idlwave.el (idlwave-goto-comment, idlwave-fill-paragraph) + (idlwave-in-quote): + * progmodes/idlw-shell.el (idlwave-shell-current-frame) + (idlwave-shell-update-bp-overlays, idlwave-shell-sources-filter): + * progmodes/fortran.el (fortran-looking-at-if-then): + * progmodes/etags.el (find-tag-in-order, etags-snarf-tag): + * progmodes/cperl-mode.el (cperl-sniff-for-indent) + (cperl-find-pods-heres): + * progmodes/ada-mode.el (ada-get-current-indent, ada-narrow-to-defun): + * net/quickurl.el (quickurl-list-insert): + * net/ldap.el (ldap-search-internal): + * net/eudc.el (eudc-expand-inline): + * mail/sendmail.el (sendmail-send-it): + * mail/mspools.el (mspools-visit-spool, mspools-get-spool-name): + * emulation/viper-cmd.el (viper-paren-match, viper-backward-indent) + (viper-brac-function): + * calc/calc-yank.el (calc-do-grab-region): + * calc/calc-keypd.el (calc-keypad-press): + * term.el (term-move-columns, term-insert-spaces): + * speedbar.el (speedbar-highlight-one-tag-line): + * simple.el (current-word): + * mouse-drag.el (mouse-drag-should-do-col-scrolling): + * info.el (Info-find-node-in-buffer-1, Info-follow-reference) + (Info-scroll-down): + * hippie-exp.el (he-line-beg): + * epa.el (epa--marked-keys): + * dired-aux.el (dired-kill-line, dired-do-kill-lines) + (dired-update-file-line, dired-add-entry, dired-remove-entry) + (dired-relist-entry): + * buff-menu.el (Buffer-menu-buffer): + * array.el (current-line): + * allout.el (allout-resolve-xref) + (allout-latex-verbatim-quote-curr-line): + Replace yet more uses of end-of-line etc with line-end-position, etc. + 2010-11-08 Stefan Monnier * emacs-lisp/checkdoc.el (checkdoc-display-status-buffer) === modified file 'lisp/allout.el' --- lisp/allout.el 2010-05-02 02:39:50 +0000 +++ lisp/allout.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,7 @@ ;;; allout.el --- extensive outline mode for use alone and with other modes -;; Copyright (C) 1992, 1993, 1994, 2001, 2002, 2003, 2004, 2005, -;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, +;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Ken Manheimer ;; Maintainer: Ken Manheimer @@ -4725,7 +4725,7 @@ (save-match-data (save-excursion (let* ((text-start allout-recent-prefix-end) - (heading-end (progn (end-of-line) (point)))) + (heading-end (point-at-eol))) (goto-char text-start) (setq file-name (if (re-search-forward "\\s-\\(\\S-*\\)" heading-end t) @@ -5672,8 +5672,7 @@ (let ((inhibit-field-text-motion t)) (beginning-of-line) (let ((beg (point)) - (end (progn (end-of-line)(point)))) - (goto-char beg) + (end (point-at-eol))) (save-match-data (while (re-search-forward "\\\\" ;;"\\\\\\|\\{\\|\\}\\|\\_\\|\\$\\|\\\"\\|\\&\\|\\^\\|\\-\\|\\*\\|#" @@ -6941,7 +6940,7 @@ (skip-chars-backward "^\n")) (vertical-motion 0)) ) -;;;_ > move-end-of-line if necessary -- older emacs, xemacs +;;;_ > move-end-of-line if necessary -- Emacs < 22.1, xemacs (if (not (fboundp 'move-end-of-line)) (defun move-end-of-line (arg) "Move point to end of current line as displayed. @@ -7147,5 +7146,4 @@ ;;allout-layout: (0 : -1 -1 0) ;;End: -;; arch-tag: cf38fbc3-c044-450f-8bff-afed8ba5681c ;;; allout.el ends here === modified file 'lisp/array.el' --- lisp/array.el 2010-10-10 23:12:30 +0000 +++ lisp/array.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,7 @@ ;;; array.el --- array editing commands for GNU Emacs ;; Copyright (C) 1987, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, -;; 2008, 2009, 2010 Free Software Foundation, Inc. +;; 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: David M. Brown ;; Maintainer: FSF @@ -748,9 +748,7 @@ (defun current-line () "Return the current buffer line at point. The first line is 0." - (save-excursion - (beginning-of-line) - (count-lines (point-min) (point)))) + (count-lines (point-min) (line-beginning-position))) (defun move-to-column-untabify (column) "Move to COLUMN on the current line, untabifying if necessary. @@ -903,5 +901,4 @@ (provide 'array) -;; arch-tag: 0086605d-79fe-4a1a-992a-456417261f80 ;;; array.el ends here === modified file 'lisp/buff-menu.el' --- lisp/buff-menu.el 2010-08-29 16:17:13 +0000 +++ lisp/buff-menu.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,8 @@ ;;; buff-menu.el --- buffer menu main function and support functions -*- coding:utf-8 -*- -;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 2000, 2001, 2002, 2003, -;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 2000, 2001, 2002, +;; 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 +;; Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: convenience @@ -303,9 +304,7 @@ (defun Buffer-menu-buffer (error-if-non-existent-p) "Return buffer described by this line of buffer menu." - (let* ((where (save-excursion - (beginning-of-line) - (+ (point) Buffer-menu-buffer-column))) + (let* ((where (+ (line-beginning-position) Buffer-menu-buffer-column)) (name (and (not (eobp)) (get-text-property where 'buffer-name))) (buf (and (not (eobp)) (get-text-property where 'buffer)))) (if name @@ -924,5 +923,4 @@ (set-buffer-modified-p nil) (current-buffer)))) -;; arch-tag: e7dfcfc9-6cb2-46e4-bf55-8ef1936d83c6 ;;; buff-menu.el ends here === modified file 'lisp/calc/calc-keypd.el' --- lisp/calc/calc-keypd.el 2010-01-13 08:35:10 +0000 +++ lisp/calc/calc-keypd.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,7 @@ ;;; calc-keypd.el --- mouse-capable keypad input for Calc -;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, 2005, +;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: David Gillespie ;; Maintainer: Jay Belanger @@ -390,9 +390,7 @@ (interactive) (unless (eq major-mode 'calc-keypad-mode) (error "Must be in *Calc Keypad* buffer for this command")) - (let* ((row (save-excursion - (beginning-of-line) - (count-lines (point-min) (point)))) + (let* ((row (count-lines (point-min) (point-at-bol))) (y (/ row 2)) (x (/ (current-column) (if (>= y 4) 6 5))) radix frac inv @@ -619,5 +617,4 @@ (provide 'calc-keypd) -;; arch-tag: 4ba0d360-2bb6-40b8-adfa-eb373765b3f9 ;;; calc-keypd.el ends here === modified file 'lisp/calc/calc-yank.el' --- lisp/calc/calc-yank.el 2010-01-13 08:35:10 +0000 +++ lisp/calc/calc-yank.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,7 @@ ;;; calc-yank.el --- kill-ring functionality for Calc -;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, 2005, +;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: David Gillespie ;; Maintainer: Jay Belanger @@ -282,11 +282,8 @@ (setq single t) (setq arg (prefix-numeric-value arg)) (if (= arg 0) - (save-excursion - (beginning-of-line) - (setq top (point)) - (end-of-line) - (setq bot (point))) + (setq top (point-at-bol) + bot (point-at-eol)) (save-excursion (setq top (point)) (forward-line arg) @@ -713,5 +710,4 @@ ;; generated-autoload-file: "calc-loaddefs.el" ;; End: -;; arch-tag: ca61019e-caca-4daa-b32c-b6afe372d5b5 ;;; calc-yank.el ends here === modified file 'lisp/cedet/ChangeLog' --- lisp/cedet/ChangeLog 2010-11-07 01:36:33 +0000 +++ lisp/cedet/ChangeLog 2010-11-09 05:33:07 +0000 @@ -1,3 +1,12 @@ +2010-11-09 Glenn Morris + + * semantic/lex.el (semantic-lex-ignore-comments, semantic-flex): + * semantic/grammar.el (semantic-grammar-epilogue): + * ede/speedbar.el (ede-find-nearest-file-line): + * ede/pmake.el (ede-proj-makefile-insert-dist-rules): + * ede/autoconf-edit.el (autoconf-delete-parameter): + Use point-at-bol and point-at-eol. + 2010-11-07 Glenn Morris * ede/proj-elisp.el (ede-proj-flush-autoconf): Use point-at-bol. === modified file 'lisp/cedet/ede/autoconf-edit.el' --- lisp/cedet/ede/autoconf-edit.el 2010-09-21 02:42:53 +0000 +++ lisp/cedet/ede/autoconf-edit.el 2010-11-09 05:33:07 +0000 @@ -1,6 +1,7 @@ ;;; ede/autoconf-edit.el --- Keymap for autoconf -;; Copyright (C) 1998, 1999, 2000, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2009, 2010 +;; Free Software Foundation, Inc. ;; Author: Eric M. Ludlam ;; Keywords: project @@ -381,9 +382,7 @@ (down-list 1) (re-search-forward ", ?" nil nil (1- index)) (let ((end (save-excursion - (re-search-forward ",\\|)" (save-excursion - (end-of-line) - (point))) + (re-search-forward ",\\|)" (point-at-eol)) (forward-char -1) (point)))) (setq autoconf-deleted-text (buffer-substring (point) end)) @@ -417,5 +416,4 @@ (provide 'ede/autoconf-edit) -;; arch-tag: 5932c433-4fd4-4d5e-ab35-8effd95a405f ;;; ede/autoconf-edit.el ends here === modified file 'lisp/cedet/ede/pmake.el' --- lisp/cedet/ede/pmake.el 2010-09-21 02:42:53 +0000 +++ lisp/cedet/ede/pmake.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,7 @@ ;;; ede-pmake.el --- EDE Generic Project Makefile code generator. -;;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, -;;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, +;; 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam ;; Keywords: project, make @@ -565,10 +565,7 @@ (cond ((eq (cdr sv) 'share) ;; This variable may be shared between multiple targets. (if (re-search-backward (concat "\\$(" (car sv) ")") - (save-excursion - (beginning-of-line) - (point)) - t) + (point-at-bol) t) ;; If its already in the dist target, then skip it. nil (setq sv (car sv)))) @@ -693,5 +690,4 @@ (provide 'ede/pmake) -;; arch-tag: 7ad8e19f-cdee-484c-8caf-f15cb0fc4df2 ;;; ede/pmake.el ends here === modified file 'lisp/cedet/ede/speedbar.el' --- lisp/cedet/ede/speedbar.el 2010-09-21 02:42:53 +0000 +++ lisp/cedet/ede/speedbar.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,7 @@ ;;; ede/speedbar.el --- Speedbar viewing of EDE projects -;;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2005, 2007, 2008, 2009, 2010 -;;; Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2005, 2007, 2008, +;; 2009, 2010 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam ;; Keywords: project, make, tags @@ -176,10 +176,7 @@ (beginning-of-line) (looking-at "^\\([0-9]+\\):") (let ((depth (string-to-number (match-string 1)))) - (while (not (re-search-forward "[]] [^ ]" - (save-excursion (end-of-line) - (point)) - t)) + (while (not (re-search-forward "[]] [^ ]" (point-at-eol) t)) (re-search-backward (format "^%d:" (1- depth))) (setq depth (1- depth))) (speedbar-line-token)))) @@ -358,5 +355,4 @@ ;; generated-autoload-load-name: "ede/speedbar" ;; End: -;; arch-tag: 56721fc9-8eb5-4115-8511-18cf8397ec87 ;;; ede/speedbar.el ends here === modified file 'lisp/cedet/semantic/grammar.el' --- lisp/cedet/semantic/grammar.el 2010-09-29 16:09:21 +0000 +++ lisp/cedet/semantic/grammar.el 2010-11-09 05:33:07 +0000 @@ -248,10 +248,7 @@ (skip-chars-backward "\r\n\t") ;; If a grammar footer is found, skip it. (re-search-backward "^;;;\\s-+\\S-+\\s-+ends here" - (save-excursion - (beginning-of-line) - (point)) - t) + (point-at-bol) t) (skip-chars-backward "\r\n\t") (point))) "\n")) @@ -1897,5 +1894,4 @@ (provide 'semantic/grammar) -;; arch-tag: 12ffc9d5-557d-49af-a5fd-a66a006ddb3e ;;; semantic/grammar.el ends here === modified file 'lisp/cedet/semantic/lex.el' --- lisp/cedet/semantic/lex.el 2010-09-25 12:04:35 +0000 +++ lisp/cedet/semantic/lex.el 2010-11-09 05:33:07 +0000 @@ -1427,10 +1427,7 @@ ;; to work properly. Lets try and move over ;; whatever white space we matched to begin ;; with. - (skip-syntax-forward "-.'" - (save-excursion - (end-of-line) - (point))) + (skip-syntax-forward "-.'" (point-at-eol)) ;; We may need to back up so newlines or whitespace is generated. (if (bolp) (backward-char 1))) @@ -1997,10 +1994,7 @@ ;; to work properly. Lets try and move over ;; whatever white space we matched to begin ;; with. - (skip-syntax-forward "-.'" - (save-excursion - (end-of-line) - (point))) + (skip-syntax-forward "-.'" (point-at-eol)) ;;(forward-comment 1) ;; Generate newline token if enabled (if (and semantic-flex-enable-newlines @@ -2049,5 +2043,4 @@ ;; generated-autoload-load-name: "semantic/lex" ;; End: -;; arch-tag: a47664fc-48d9-4b36-921f-cab0ea8cdf92 ;;; semantic/lex.el ends here === modified file 'lisp/dired-aux.el' --- lisp/dired-aux.el 2010-08-29 16:17:13 +0000 +++ lisp/dired-aux.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,8 @@ ;;; dired-aux.el --- less commonly used parts of dired ;; Copyright (C) 1985, 1986, 1992, 1994, 1998, 2000, 2001, 2002, 2003, -;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 +;; Free Software Foundation, Inc. ;; Author: Sebastian Kremer . ;; Maintainer: FSF @@ -700,7 +701,7 @@ (save-excursion (and file (dired-goto-subdir file) (dired-kill-subdir))) - (delete-region (progn (beginning-of-line) (point)) + (delete-region (line-beginning-position) (progn (forward-line 1) (point))) (if (> arg 0) (setq arg (1- arg)) @@ -734,7 +735,7 @@ (while (and (not (eobp)) (re-search-forward regexp nil t)) (setq count (1+ count)) - (delete-region (progn (beginning-of-line) (point)) + (delete-region (line-beginning-position) (progn (forward-line 1) (point)))) (or (equal "" fmt) (message (or fmt "Killed %d line%s.") count (dired-plural-s count))) @@ -1037,10 +1038,10 @@ ;; Keeps any marks that may be present in column one (doing this ;; here is faster than with dired-add-entry's optional arg). ;; Does not update other dired buffers. Use dired-relist-entry for that. - (beginning-of-line) - (let ((char (following-char)) (opoint (point)) + (let ((char (following-char)) + (opoint (line-beginning-position)) (buffer-read-only)) - (delete-region (point) (progn (forward-line 1) (point))) + (delete-region opoint (progn (forward-line 1) (point))) (if file (progn (dired-add-entry file nil t) @@ -1133,8 +1134,7 @@ (save-excursion ;; ...so we can run it right now: (save-restriction (beginning-of-line) - (narrow-to-region (point) (save-excursion - (forward-line 1) (point))) + (narrow-to-region (point) (line-beginning-position 2)) (run-hooks 'dired-after-readin-hook)))) (dired-move-to-filename)) ;; return nil if all went well @@ -1167,7 +1167,7 @@ (and (dired-goto-file file) (let (buffer-read-only) (delete-region (progn (beginning-of-line) (point)) - (save-excursion (forward-line 1) (point))))))) + (line-beginning-position 2)))))) ;;;###autoload (defun dired-relist-file (file) @@ -1188,7 +1188,7 @@ (delete-region (progn (beginning-of-line) (setq marker (following-char)) (point)) - (save-excursion (forward-line 1) (point)))) + (line-beginning-position 2))) (setq file (directory-file-name file)) (dired-add-entry file (if (eq ?\040 marker) nil marker))))) @@ -2482,5 +2482,4 @@ ;; generated-autoload-file: "dired.el" ;; End: -;; arch-tag: 4b508de9-a153-423d-8d3f-a1bbd86f4f60 ;;; dired-aux.el ends here === modified file 'lisp/emulation/viper-cmd.el' --- lisp/emulation/viper-cmd.el 2010-11-06 19:44:11 +0000 +++ lisp/emulation/viper-cmd.el 2010-11-09 05:33:07 +0000 @@ -3498,11 +3498,8 @@ (if (and (eolp) (not (bolp))) (forward-char -1)) (if (not (looking-at "[][(){}]")) (setq anchor-point (point))) - (save-excursion - (beginning-of-line) - (setq beg-lim (point)) - (end-of-line) - (setq end-lim (point))) + (setq beg-lim (point-at-bol) + end-lim (point-at-eol)) (cond ((re-search-forward "[][(){}]" end-lim t) (backward-char) ) ((re-search-backward "[][(){}]" beg-lim t)) @@ -4625,9 +4622,7 @@ (delete-char -1) (setq p (point)) (setq indent nil))) - (save-excursion - (beginning-of-line) - (setq bol (point))) + (setq bol (point-at-bol)) (if (re-search-backward "[^ \t]" bol 1) (forward-char)) (delete-region (point) p) (if indent @@ -4711,9 +4706,7 @@ (goto-char pos) (beginning-of-line) (if (re-search-backward "[^ \t]" nil t) - (progn - (beginning-of-line) - (setq s (point)))) + (setq s (point-at-bol))) (goto-char pos) (forward-line 1) (if (re-search-forward "[^ \t]" nil t) === modified file 'lisp/epa.el' --- lisp/epa.el 2010-10-10 01:45:45 +0000 +++ lisp/epa.el 2010-11-09 05:33:07 +0000 @@ -1,5 +1,7 @@ ;;; epa.el --- the EasyPG Assistant -;; Copyright (C) 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. + +;; Copyright (C) 2006, 2007, 2008, 2009, 2010 +;; Free Software Foundation, Inc. ;; Author: Daiki Ueno ;; Keywords: PGP, GnuPG @@ -471,11 +473,9 @@ 'epa-key)) (setq keys (cons key keys)))) (nreverse keys))) - (save-excursion - (beginning-of-line) - (let ((key (get-text-property (point) 'epa-key))) - (if key - (list key)))))) + (let ((key (get-text-property (point-at-bol) 'epa-key))) + (if key + (list key))))) (defun epa--select-keys (prompt keys) (unless (and epa-keys-buffer @@ -1251,5 +1251,4 @@ (provide 'epa) -;; arch-tag: 38d20ced-20d5-4137-b17a-f206335423d7 ;;; epa.el ends here === modified file 'lisp/gnus/ChangeLog' --- lisp/gnus/ChangeLog 2010-11-09 02:00:56 +0000 +++ lisp/gnus/ChangeLog 2010-11-09 05:33:07 +0000 @@ -1,3 +1,8 @@ +2010-11-09 Glenn Morris + + * nnbabyl.el (nnbabyl-request-move-article, nnbabyl-delete-mail) + (nnbabyl-check-mbox): Use point-at-bol. + 2010-11-09 Katsumi Yamaoka * message.el (message-subject-trailing-was-regexp): Fix default value. === modified file 'lisp/gnus/nnbabyl.el' --- lisp/gnus/nnbabyl.el 2010-09-18 23:36:29 +0000 +++ lisp/gnus/nnbabyl.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,8 @@ ;;; nnbabyl.el --- rmail mbox access for Gnus ;; Copyright (C) 1995, 1996, 1997, 1998, 1099, 2000, 2001, 2002, 2003, -;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 +;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA @@ -309,8 +310,7 @@ (while (re-search-forward "^X-Gnus-Newsgroup:" (save-excursion (search-forward "\n\n" nil t) (point)) t) - (delete-region (progn (beginning-of-line) (point)) - (progn (forward-line 1) (point)))) + (delete-region (point-at-bol) (progn (forward-line 1) (point)))) (setq result (eval accept-form)) (kill-buffer (current-buffer)) result) @@ -427,9 +427,7 @@ (defun nnbabyl-delete-mail (&optional force leave-delim) ;; Delete the current X-Gnus-Newsgroup line. (unless force - (delete-region - (progn (beginning-of-line) (point)) - (progn (forward-line 1) (point)))) + (delete-region (point-at-bol) (progn (forward-line 1) (point)))) ;; Beginning of the article. (save-excursion (save-restriction @@ -639,8 +637,7 @@ (while (re-search-forward "^X-Gnus-Newsgroup: \\([^ ]+\\) " nil t) (if (intern-soft (setq id (match-string 1)) idents) (progn - (delete-region (progn (beginning-of-line) (point)) - (progn (forward-line 1) (point))) + (delete-region (point-at-bol) (progn (forward-line 1) (point))) (nnheader-message 7 "Moving %s..." id) (nnbabyl-save-mail (nnmail-article-group 'nnbabyl-active-number))) === modified file 'lisp/hippie-exp.el' --- lisp/hippie-exp.el 2010-01-13 08:35:10 +0000 +++ lisp/hippie-exp.el 2010-11-09 05:33:07 +0000 @@ -716,8 +716,7 @@ (defun he-line-beg (strip-prompt) (save-excursion (if (re-search-backward (he-line-search-regexp "" strip-prompt) - (save-excursion (beginning-of-line) - (point)) t) + (line-beginning-position) t) (match-beginning 2) (point)))) @@ -1184,5 +1183,4 @@ (provide 'hippie-exp) -;; arch-tag: 5e6e00bf-b061-4a7a-9b46-de0ae105ab99 ;;; hippie-exp.el ends here === modified file 'lisp/info.el' --- lisp/info.el 2010-11-01 05:48:20 +0000 +++ lisp/info.el 2010-11-09 05:33:07 +0000 @@ -888,17 +888,16 @@ (let ((case-fold-search case-fold) found) (save-excursion - (when (Info-node-at-bob-matching regexp) - (setq found (point))) - (while (and (not found) - (search-forward "\n\^_" nil t)) - (forward-line 1) - (let ((beg (point))) - (forward-line 1) - (when (re-search-backward regexp beg t) - (beginning-of-line) - (setq found (point))))) - found))) + (if (Info-node-at-bob-matching regexp) + (setq found (point)) + (while (and (not found) + (search-forward "\n\^_" nil t)) + (forward-line 1) + (let ((beg (point))) + (forward-line 1) + (if (re-search-backward regexp beg t) + (setq found (line-beginning-position))))))) + found)) (defun Info-find-node-in-buffer (regexp) "Find a node or anchor in the current buffer. @@ -2323,11 +2322,8 @@ completions default alt-default (start-point (point)) str i bol eol) (save-excursion ;; Store end and beginning of line. - (end-of-line) - (setq eol (point)) - (beginning-of-line) - (setq bol (point)) - + (setq eol (line-end-position) + bol (line-beginning-position)) (goto-char (point-min)) (while (re-search-forward "\\*note[ \n\t]+\\([^:]*\\):" nil t) (setq str (match-string-no-properties 1)) @@ -2843,12 +2839,9 @@ (virtual-end (and Info-scroll-prefer-subnodes (save-excursion - (beginning-of-line) - (setq current-point (point)) + (setq current-point (line-beginning-position)) (goto-char (point-min)) - (search-forward "\n* Menu:" - current-point - t))))) + (search-forward "\n* Menu:" current-point t))))) (if (or virtual-end (pos-visible-in-window-p (point-min) nil t)) (Info-last-preorder) === modified file 'lisp/mail/mspools.el' --- lisp/mail/mspools.el 2010-10-24 21:44:53 +0000 +++ lisp/mail/mspools.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,7 @@ ;;; mspools.el --- show mail spools waiting to be read -;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, -;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +;; 2009, 2010 Free Software Foundation, Inc. ;; Author: Stephen Eglen ;; Maintainer: Stephen Eglen @@ -280,10 +280,7 @@ )) (message "folder %s spool %s" folder-name spool-name) - (if (eq (count-lines (point-min) - (save-excursion - (end-of-line) - (point))) + (if (eq (count-lines (point-min) (point-at-eol)) mspools-files-len) (forward-line (- 1 mspools-files-len)) ;back to top of list ;; else just on to next line @@ -323,11 +320,7 @@ (defun mspools-get-spool-name () "Return the name of the spool on the current line." - (let ((line-num (1- (count-lines (point-min) - (save-excursion - (end-of-line) - (point)) - )))) + (let ((line-num (1- (count-lines (point-min) (point-at-eol))))) (car (nth line-num mspools-files)))) ;;; Spools mode functions @@ -411,5 +404,4 @@ (provide 'mspools) -;; arch-tag: 8990b3ee-68c8-4892-98f1-51a735c8bac6 ;;; mspools.el ends here === modified file 'lisp/mail/sendmail.el' --- lisp/mail/sendmail.el 2010-11-06 20:23:42 +0000 +++ lisp/mail/sendmail.el 2010-11-09 05:33:07 +0000 @@ -1149,8 +1149,7 @@ ;; should override any specified in the message itself. (when where-content-type (goto-char where-content-type) - (beginning-of-line) - (delete-region (point) + (delete-region (point-at-bol) (progn (forward-line 1) (point))))))) ;; Insert an extra newline if we need it to work around ;; Sun's bug that swallows newlines. === modified file 'lisp/mouse-drag.el' --- lisp/mouse-drag.el 2010-01-13 08:35:10 +0000 +++ lisp/mouse-drag.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,7 @@ ;;; mouse-drag.el --- use mouse-2 to do a new style of scrolling -;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: John Heidemann ;; Keywords: mouse @@ -163,7 +163,7 @@ mouse-drag-electric-col-scrolling (save-excursion ;; on a long line? (let - ((beg (progn (beginning-of-line) (point))) + ((beg (line-beginning-position)) (end (progn (end-of-line) (point)))) (if (> (- end beg) (window-width)) (setq truncate-lines t) @@ -326,5 +326,4 @@ (provide 'mouse-drag) -;; arch-tag: e47354ff-82f5-42c4-b3dc-88dd9c04b770 ;;; mouse-drag.el ends here === modified file 'lisp/net/eudc.el' --- lisp/net/eudc.el 2010-01-13 08:35:10 +0000 +++ lisp/net/eudc.el 2010-11-09 05:33:07 +0000 @@ -830,10 +830,7 @@ (let* ((end (point)) (beg (save-excursion (if (re-search-backward "\\([:,]\\|^\\)[ \t]*" - (save-excursion - (beginning-of-line) - (point)) - 'move) + (point-at-bol) 'move) (goto-char (match-end 0))) (point))) (query-words (split-string (buffer-substring beg end) "[ \t]+")) @@ -1295,5 +1292,4 @@ (provide 'eudc) -;; arch-tag: e18872b6-db83-400b-869d-be54e9a4160c ;;; eudc.el ends here === modified file 'lisp/net/ldap.el' --- lisp/net/ldap.el 2010-09-23 06:42:45 +0000 +++ lisp/net/ldap.el 2010-11-09 05:33:07 +0000 @@ -579,9 +579,7 @@ (while (progn (skip-chars-forward " \t\n") (not (eobp))) - (setq dn (buffer-substring (point) (save-excursion - (end-of-line) - (point)))) + (setq dn (buffer-substring (point) (point-at-eol))) (forward-line 1) (while (looking-at "^\\([A-Za-z][-A-Za-z0-9]*\ \\|[0-9]+\\(?:\\.[0-9]+\\)*\\)\\(;[-A-Za-z0-9]+\\)*[=:\t ]+\ @@ -617,5 +615,4 @@ (provide 'ldap) -;; arch-tag: 47913a76-6155-42e6-ac58-6d28b5d50eb0 ;;; ldap.el ends here === modified file 'lisp/net/quickurl.el' --- lisp/net/quickurl.el 2010-10-10 23:12:30 +0000 +++ lisp/net/quickurl.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,7 @@ ;;; quickurl.el --- insert an URL based on text at point in buffer -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Dave Pearson ;; Maintainer: Dave Pearson @@ -506,9 +506,7 @@ `with-lookup' - Insert \"lookup \" `with-desc' - Insert \"description \" `lookup' - Insert the lookup for that URL" - (let ((url (nth (save-excursion - (beginning-of-line) - (count-lines (point-min) (point))) + (let ((url (nth (count-lines (point-min) (line-beginning-position)) quickurl-urls))) (if url (with-current-buffer quickurl-list-last-buffer @@ -542,5 +540,4 @@ (provide 'quickurl) -;; arch-tag: a8183ea5-80c2-4082-a7d1-b0fdf2da467e ;;; quickurl.el ends here === modified file 'lisp/progmodes/ada-mode.el' --- lisp/progmodes/ada-mode.el 2010-11-07 01:36:33 +0000 +++ lisp/progmodes/ada-mode.el 2010-11-09 05:33:07 +0000 @@ -2472,8 +2472,7 @@ (if (and ada-indent-is-separate (save-excursion (goto-char (match-end 0)) - (ada-goto-next-non-ws (save-excursion (end-of-line) - (point))) + (ada-goto-next-non-ws (point-at-eol)) (looking-at "\\\\|\\"))) (save-excursion (ada-goto-stmt-start) @@ -2580,10 +2579,7 @@ (forward-line -1) (beginning-of-line) (while (and (not pos) - (search-forward "--" - (save-excursion - (end-of-line) (point)) - t)) + (search-forward "--" (point-at-eol) t)) (unless (ada-in-string-p) (setq pos (point)))) pos)) @@ -5285,11 +5281,7 @@ (widen) (forward-line 1) (ada-previous-procedure) - - (save-excursion - (beginning-of-line) - (setq end (point))) - + (setq end (point-at-bol)) (ada-move-to-end) (end-of-line) (narrow-to-region end (point)) === modified file 'lisp/progmodes/cperl-mode.el' --- lisp/progmodes/cperl-mode.el 2010-11-07 01:36:33 +0000 +++ lisp/progmodes/cperl-mode.el 2010-11-09 05:33:07 +0000 @@ -2984,8 +2984,7 @@ (looking-at "sub\\>"))) (setq p (nth 1 ; start of innermost containing list (parse-partial-sexp - (save-excursion (beginning-of-line) - (point)) + (point-at-bol) (point))))) (progn (goto-char (1+ p)) ; enclosing block on the same line @@ -4048,10 +4047,7 @@ "") tb (match-beginning 0)) (setq argument nil) - (put-text-property (save-excursion - (beginning-of-line) - (point)) - b 'first-format-line 't) + (put-text-property (point-at-bol) b 'first-format-line 't) (if cperl-pod-here-fontify (while (and (eq (forward-line) 0) (not (looking-at "^[.;]$"))) === modified file 'lisp/progmodes/etags.el' --- lisp/progmodes/etags.el 2010-11-06 20:23:42 +0000 +++ lisp/progmodes/etags.el 2010-11-09 05:33:07 +0000 @@ -1133,9 +1133,7 @@ ;; Naive match found. Qualify the match. (and (funcall (car order) pattern) ;; Make sure it is not a previous qualified match. - (not (member (set-marker match-marker (save-excursion - (beginning-of-line) - (point))) + (not (member (set-marker match-marker (point-at-bol)) tag-lines-already-matched)) (throw 'qualified-match-found nil)) (if next-line-after-failure-p @@ -1313,13 +1311,11 @@ ;; Find the end of the tag and record the whole tag text. (search-forward "\177") - (setq tag-text (buffer-substring (1- (point)) - (save-excursion (beginning-of-line) - (point)))) + (setq tag-text (buffer-substring (1- (point)) (point-at-bol))) ;; If use-explicit is non nil and explicit tag is present, use it as part of ;; return value. Else just skip it. (setq explicit-start (point)) - (when (and (search-forward "\001" (save-excursion (forward-line 1) (point)) t) + (when (and (search-forward "\001" (point-at-bol 2) t) use-explicit) (setq tag-text (buffer-substring explicit-start (1- (point))))) === modified file 'lisp/progmodes/fortran.el' --- lisp/progmodes/fortran.el 2010-09-18 00:35:00 +0000 +++ lisp/progmodes/fortran.el 2010-11-09 05:33:07 +0000 @@ -1315,8 +1315,7 @@ (if i (save-excursion (goto-char i) - (beginning-of-line) - (= (point) p))))) + (= (line-beginning-position) p))))) ;; Used in hs-special-modes-alist. (defun fortran-end-of-block (&optional num) @@ -2207,5 +2206,4 @@ (provide 'fortran) -;; arch-tag: 74935096-21c4-4cab-8ee5-6ef16090dc04 ;;; fortran.el ends here === modified file 'lisp/progmodes/idlw-shell.el' --- lisp/progmodes/idlw-shell.el 2010-11-07 01:36:33 +0000 +++ lisp/progmodes/idlw-shell.el 2010-11-09 05:33:07 +0000 @@ -2591,9 +2591,7 @@ (list (idlwave-shell-file-name (buffer-file-name)) (save-restriction (widen) - (save-excursion - (beginning-of-line) - (1+ (count-lines 1 (point)))))))) + (1+ (count-lines 1 (point-at-bol))))))) (defun idlwave-shell-current-module () "Return the name of the module for the current file. @@ -3645,7 +3643,7 @@ (while (setq bp (pop bp-list)) (save-excursion (idlwave-shell-goto-frame (car bp)) - (let* ((end (progn (end-of-line 1) (point))) + (let* ((end (point-at-eol)) (beg (progn (beginning-of-line 1) (point))) (condition (idlwave-shell-bp-get bp 'condition)) (count (idlwave-shell-bp-get bp 'count)) @@ -3999,8 +3997,7 @@ (append ;; compiled procedures (progn - (beginning-of-line) - (narrow-to-region cpro (point)) + (narrow-to-region cpro (point-at-bol)) (goto-char (point-min)) (idlwave-shell-sources-grep)) ;; compiled functions === modified file 'lisp/progmodes/idlwave.el' --- lisp/progmodes/idlwave.el 2010-11-07 01:36:33 +0000 +++ lisp/progmodes/idlwave.el 2010-11-09 05:33:07 +0000 @@ -2097,7 +2097,7 @@ Moves to end of line if there is no comment delimiter. Ignores comment delimiters in strings. Returns point if comment found and nil otherwise." - (let ((eos (progn (end-of-line) (point))) + (let ((eos (point-at-eol)) (data (match-data)) found) ;; Look for first comment delimiter not in a string @@ -3310,10 +3310,7 @@ (setq fill-prefix-reg (concat (setq fill-prefix - (regexp-quote - (buffer-substring (save-excursion - (beginning-of-line) (point)) - (point)))) + (regexp-quote (buffer-substring (point-at-bol) (point)))) "[^;]")) ;; Mark the beginning and end of the paragraph @@ -3668,7 +3665,7 @@ ;; Because single and double quotes can quote each other we must ;; search for the string start from the beginning of line. (let* ((start (point)) - (eol (progn (end-of-line) (point))) + (eol (point-at-eol)) (bq (progn (beginning-of-line) (point))) (endq (point)) (data (match-data)) === modified file 'lisp/progmodes/meta-mode.el' --- lisp/progmodes/meta-mode.el 2010-01-13 08:35:10 +0000 +++ lisp/progmodes/meta-mode.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,7 @@ ;;; meta-mode.el --- major mode for editing Metafont or MetaPost sources -;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 -;; Free Software Foundation, Inc. +;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +;; 2009, 2010 Free Software Foundation, Inc. ;; Author: Ulrik Vieth ;; Version: 1.0 @@ -577,7 +577,7 @@ (let ((indent (meta-indent-calculate))) (save-excursion (if (/= (current-indentation) indent) - (let ((beg (progn (beginning-of-line) (point))) + (let ((beg (line-beginning-position)) (end (progn (back-to-indentation) (point)))) (delete-region beg end) (indent-to indent)))) @@ -1084,5 +1084,4 @@ (provide 'meta-mode) (run-hooks 'meta-mode-load-hook) -;; arch-tag: ec2916b2-3a83-4cf7-962d-d8019370c006 ;;; meta-mode.el ends here === modified file 'lisp/progmodes/sh-script.el' --- lisp/progmodes/sh-script.el 2010-09-10 23:13:42 +0000 +++ lisp/progmodes/sh-script.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,8 @@ ;;; sh-script.el --- shell-script editing commands for Emacs ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2001, 2002, 2003, -;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 +;; Free Software Foundation, Inc. ;; Author: Daniel Pfeiffer ;; Version: 2.0f @@ -2136,11 +2137,7 @@ (defun sh-handle-prev-do () (cond ((save-restriction - (narrow-to-region - (point) - (save-excursion - (beginning-of-line) - (point))) + (narrow-to-region (point) (line-beginning-position)) (sh-goto-match-for-done)) (sh-debug "match for done found on THIS line") (list '(+ sh-indent-after-loop-construct))) @@ -3840,5 +3837,4 @@ (provide 'sh-script) -;; arch-tag: eccd8b72-f337-4fc2-ae86-18155a69d937 ;;; sh-script.el ends here === modified file 'lisp/progmodes/tcl.el' --- lisp/progmodes/tcl.el 2010-09-10 23:13:42 +0000 +++ lisp/progmodes/tcl.el 2010-11-09 05:33:07 +0000 @@ -1208,8 +1208,7 @@ simpler version that is often right, and works in Emacs 18." (let ((bol (save-excursion (goto-char end) - (beginning-of-line) - (point))) + (line-beginning-position))) real-comment last-cstart) (while (and (not last-cstart) (< (point) end)) @@ -1557,5 +1556,4 @@ (provide 'tcl) -;; arch-tag: 8a032554-c3ef-422e-b84c-acec0522179d ;;; tcl.el ends here === modified file 'lisp/progmodes/vhdl-mode.el' --- lisp/progmodes/vhdl-mode.el 2010-11-07 01:36:33 +0000 +++ lisp/progmodes/vhdl-mode.el 2010-11-09 05:33:07 +0000 @@ -12115,9 +12115,7 @@ "Return the line number of the line containing point." (save-restriction (widen) - (save-excursion - (beginning-of-line) - (1+ (count-lines (point-min) (point)))))) + (1+ (count-lines (point-min) (point-at-bol))))) (defun vhdl-line-kill-entire (&optional arg) "Delete entire line." @@ -12134,8 +12132,7 @@ "Copy current line." (interactive "p") (save-excursion - (beginning-of-line) - (let ((position (point))) + (let ((position (point-at-bol))) (forward-line (or arg 1)) (copy-region-as-kill position (point))))) === modified file 'lisp/progmodes/xscheme.el' --- lisp/progmodes/xscheme.el 2010-01-13 08:35:10 +0000 +++ lisp/progmodes/xscheme.el 2010-11-09 05:33:07 +0000 @@ -701,12 +701,7 @@ "Send the current line to the Scheme process. Useful for working with debugging Scheme under adb." (interactive) - (let ((line - (save-excursion - (beginning-of-line) - (let ((start (point))) - (end-of-line) - (buffer-substring start (point)))))) + (let ((line (buffer-substring (line-beginning-position) (line-end-position)))) (end-of-line) (insert ?\n) (xscheme-send-string-2 line))) @@ -1224,5 +1219,4 @@ (provide 'xscheme) -;; arch-tag: cfc14adc-2917-409e-ad16-432e8d0017de ;;; xscheme.el ends here === modified file 'lisp/simple.el' --- lisp/simple.el 2010-11-06 20:23:42 +0000 +++ lisp/simple.el 2010-11-09 05:33:07 +0000 @@ -5060,16 +5060,12 @@ ;; Point is neither within nor adjacent to a word. (not strict)) ;; Look for preceding word in same line. - (skip-syntax-backward not-syntaxes - (save-excursion (beginning-of-line) - (point))) + (skip-syntax-backward not-syntaxes (line-beginning-position)) (if (bolp) ;; No preceding word in same line. ;; Look for following word in same line. (progn - (skip-syntax-forward not-syntaxes - (save-excursion (end-of-line) - (point))) + (skip-syntax-forward not-syntaxes (line-end-position)) (setq start (point)) (skip-syntax-forward syntaxes) (setq end (point))) === modified file 'lisp/speedbar.el' --- lisp/speedbar.el 2010-11-07 01:06:37 +0000 +++ lisp/speedbar.el 2010-11-09 05:33:07 +0000 @@ -3986,13 +3986,10 @@ (speedbar-unhighlight-one-tag-line) (setq speedbar-highlight-one-tag-line (speedbar-make-overlay (line-beginning-position) - (save-excursion (end-of-line) - (forward-char 1) - (point)))) + (1+ (line-end-position)))) (speedbar-overlay-put speedbar-highlight-one-tag-line 'face 'speedbar-highlight-face) - (add-hook 'pre-command-hook 'speedbar-unhighlight-one-tag-line) - ) + (add-hook 'pre-command-hook 'speedbar-unhighlight-one-tag-line)) (defun speedbar-unhighlight-one-tag-line () "Unhighlight the currently highlighted line." === modified file 'lisp/term.el' --- lisp/term.el 2010-11-06 20:23:42 +0000 +++ lisp/term.el 2010-11-09 05:33:07 +0000 @@ -2611,10 +2611,7 @@ (defun term-move-columns (delta) (setq term-current-column (max 0 (+ (term-current-column) delta))) - (let (point-at-eol) - (save-excursion - (end-of-line) - (setq point-at-eol (point))) + (let ((point-at-eol (line-end-position))) (move-to-column term-current-column t) ;; If move-to-column extends the current line it will use the face ;; from the last character on the line, set the face for the chars @@ -3792,10 +3789,8 @@ (term-vertical-motion 1) (when (bolp) (backward-char)) - (setq save-eol (point)) - (save-excursion - (end-of-line) - (setq pnt-at-eol (point))) + (setq save-eol (point) + pnt-at-eol (line-end-position)) (move-to-column (+ (term-start-line-column) (- term-width count)) t) ;; If move-to-column extends the current line it will use the face ;; from the last character on the line, set the face for the chars === modified file 'lisp/textmodes/fill.el' --- lisp/textmodes/fill.el 2010-08-29 16:17:13 +0000 +++ lisp/textmodes/fill.el 2010-11-09 05:33:07 +0000 @@ -1,7 +1,8 @@ ;;; fill.el --- fill commands for Emacs -*- coding: utf-8 -*- -;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1996, 1997, 1999, 2001, 2002, -;; 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1996, 1997, 1999, 2001, +;; 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 +;; Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: wp @@ -137,7 +138,7 @@ number equals or exceeds the local fill-column - right-margin difference." (save-excursion (if fill-column - (let* ((here (progn (beginning-of-line) (point))) + (let* ((here (line-beginning-position)) (here-col 0) (eol (progn (end-of-line) (point))) margin fill-col change col) @@ -1517,5 +1518,4 @@ "") string)) -;; arch-tag: 727ad455-1161-4fa9-8df5-0f74b179216d ;;; fill.el ends here === modified file 'lisp/textmodes/ispell.el' --- lisp/textmodes/ispell.el 2010-11-07 01:36:33 +0000 +++ lisp/textmodes/ispell.el 2010-11-09 05:33:07 +0000 @@ -2912,8 +2912,7 @@ (min skip-region-start ispell-region-end) (marker-position ispell-region-end)))) (let* ((ispell-start (point)) - (ispell-end (save-excursion - (end-of-line) (min (point) reg-end))) + (ispell-end (min (point-at-eol) reg-end)) (string (ispell-get-line ispell-start ispell-end in-comment))) (if in-comment ; account for comment chars added === modified file 'lisp/vc/emerge.el' --- lisp/vc/emerge.el 2010-11-06 18:51:11 +0000 +++ lisp/vc/emerge.el 2010-11-09 05:33:07 +0000 @@ -2474,10 +2474,8 @@ (defvar emerge-line-diff) (defun emerge-line-number-in-buf (begin-marker end-marker) - (let (temp) - (setq temp (save-excursion - (beginning-of-line) - (1+ (count-lines 1 (point))))) + ;; FIXME point-min rather than 1? widen? + (let ((temp (1+ (count-lines 1 (line-beginning-position))))) (if valid-diff (progn (if (> (point) (aref emerge-line-diff begin-marker)) ------------------------------------------------------------ revno: 102292 committer: Katsumi Yamaoka branch nick: trunk timestamp: Tue 2010-11-09 02:00:56 +0000 message: message.el (message-subject-trailing-was-regexp): Fix default value. diff: === modified file 'lisp/gnus/ChangeLog' --- lisp/gnus/ChangeLog 2010-11-08 01:38:47 +0000 +++ lisp/gnus/ChangeLog 2010-11-09 02:00:56 +0000 @@ -1,3 +1,7 @@ +2010-11-09 Katsumi Yamaoka + + * message.el (message-subject-trailing-was-regexp): Fix default value. + 2010-11-07 Lars Magne Ingebrigtsen * gnus-start.el (gnus-get-unread-articles): Ignore totally non-existent === modified file 'lisp/gnus/message.el' --- lisp/gnus/message.el 2010-11-07 00:22:06 +0000 +++ lisp/gnus/message.el 2010-11-09 02:00:56 +0000 @@ -337,14 +337,14 @@ :type 'regexp) (defcustom message-subject-trailing-was-regexp - "[ \t]*\\((*[Ww][Aa][Ss]:[ \t]*.*)\\)" + "[ \t]*\\((*[Ww][Aa][Ss][ \t]*.*)\\)" "*Regexp matching \"(was: )\" in the subject line. If `message-subject-trailing-was-query' is set to t, the subject is matched against `message-subject-trailing-was-regexp' in `message-strip-subject-trailing-was'. You should use a regexp creating very few false positives here." - :version "22.1" + :version "24.1" :group 'message-various :link '(custom-manual "(message)Message Headers") :type 'regexp) ------------------------------------------------------------ revno: 102291 committer: Stefan Monnier branch nick: trunk timestamp: Mon 2010-11-08 15:01:01 -0500 message: * lisp/emacs-lisp/checkdoc.el (checkdoc-display-status-buffer) (checkdoc-interactive-loop, checkdoc-recursive-edit): Avoid princ-list. (checkdoc-syntax-table): Initialize in the declaration. (emacs-lisp-mode-hook): Use just checkdoc-minor-mode now that it turns the mode on unconditionally. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-11-08 19:09:21 +0000 +++ lisp/ChangeLog 2010-11-08 20:01:01 +0000 @@ -1,5 +1,11 @@ 2010-11-08 Stefan Monnier + * emacs-lisp/checkdoc.el (checkdoc-display-status-buffer) + (checkdoc-interactive-loop, checkdoc-recursive-edit): Avoid princ-list. + (checkdoc-syntax-table): Initialize in the declaration. + (emacs-lisp-mode-hook): Use just checkdoc-minor-mode now that it turns + the mode on unconditionally. + * emacs-lisp/cl-macs.el (extent-data, extent-face, extent-priority) (extent-end-position, extent-start-position): Remove setf method for non-existing functions (bug#7319). === modified file 'lisp/emacs-lisp/checkdoc.el' --- lisp/emacs-lisp/checkdoc.el 2010-11-07 01:44:13 +0000 +++ lisp/emacs-lisp/checkdoc.el 2010-11-08 20:01:01 +0000 @@ -201,9 +201,9 @@ The value `never' is the same as nil, never ask or change anything." :group 'checkdoc :type '(choice (const automatic) - (const query) - (const never) - (other :tag "semiautomatic" semiautomatic))) + (const query) + (const never) + (other :tag "semiautomatic" semiautomatic))) (defcustom checkdoc-bouncy-flag t "Non-nil means to \"bounce\" to auto-fix locations. @@ -250,10 +250,10 @@ t - Always spell-check" :group 'checkdoc :type '(choice (const nil) - (const defun) - (const buffer) - (const interactive) - (const t))) + (const defun) + (const buffer) + (const interactive) + (const t))) (defvar checkdoc-ispell-lisp-words '("alist" "emacs" "etags" "keymap" "paren" "regexp" "sexp" "xemacs") @@ -429,19 +429,15 @@ the value of `checkdoc-common-verbs-regexp' to nil which cause it to be re-created.") -(defvar checkdoc-syntax-table nil +(defvar checkdoc-syntax-table + (let ((st (make-syntax-table emacs-lisp-mode-syntax-table))) + ;; When dealing with syntax in doc strings, make sure that - are + ;; encompassed in words so we can use cheap \\> to get the end of a symbol, + ;; not the end of a word in a conglomerate. + (modify-syntax-entry ?- "w" checkdoc-syntax-table) + st) "Syntax table used by checkdoc in document strings.") -(if checkdoc-syntax-table - nil - (setq checkdoc-syntax-table (copy-syntax-table emacs-lisp-mode-syntax-table)) - ;; When dealing with syntax in doc strings, make sure that - are encompassed - ;; in words so we can use cheap \\> to get the end of a symbol, not the - ;; end of a word in a conglomerate. - (modify-syntax-entry ?- "w" checkdoc-syntax-table) - ) - - ;;; Compatibility ;; (defalias 'checkdoc-make-overlay @@ -515,12 +511,11 @@ test; the nth string describes the status of the nth test." (let (temp-buffer-setup-hook) (with-output-to-temp-buffer "*Checkdoc Status*" - (princ-list - "Buffer comments and tags: " (nth 0 check) "\n" - "Documentation style: " (nth 1 check) "\n" - "Message/Query text style: " (nth 2 check) "\n" - "Unwanted Spaces: " (nth 3 check) - ))) + (mapc #'princ + (list "Buffer comments and tags: " (nth 0 check) + "\nDocumentation style: " (nth 1 check) + "\nMessage/Query text style: " (nth 2 check) + "\nUnwanted Spaces: " (nth 3 check))))) (shrink-window-if-larger-than-buffer (get-buffer-window "*Checkdoc Status*")) (message nil) @@ -623,7 +618,7 @@ (recenter (/ (- (window-height) l) 2)))) (recenter)) (message "%s (C-h,%se,n,p,q)" (checkdoc-error-text - (car (car err-list))) + (car (car err-list))) (if (checkdoc-error-unfixable (car (car err-list))) "" "f,")) (save-excursion @@ -713,20 +708,21 @@ (delete-window (get-buffer-window "*Checkdoc Help*")) (kill-buffer "*Checkdoc Help*")) (with-output-to-temp-buffer "*Checkdoc Help*" - (princ-list - "Checkdoc Keyboard Summary:\n" - (if (checkdoc-error-unfixable (car (car err-list))) - "" - (concat - "f, y - auto Fix this warning without asking (if\ + (with-current-buffer standard-output + (insert + "Checkdoc Keyboard Summary:\n" + (if (checkdoc-error-unfixable (car (car err-list))) + "" + (concat + "f, y - auto Fix this warning without asking (if\ available.)\n" - " Very complex operations will still query.\n") - ) - "e - Enter recursive Edit. Press C-M-c to exit.\n" - "SPC, n - skip to the Next error.\n" - "DEL, p - skip to the Previous error.\n" - "q - Quit checkdoc.\n" - "C-h - Toggle this help buffer.")) + " Very complex operations will still query.\n") + ) + "e - Enter recursive Edit. Press C-M-c to exit.\n" + "SPC, n - skip to the Next error.\n" + "DEL, p - skip to the Previous error.\n" + "q - Quit checkdoc.\n" + "C-h - Toggle this help buffer."))) (shrink-window-if-larger-than-buffer (get-buffer-window "*Checkdoc Help*")))))) (if cdo (checkdoc-delete-overlay cdo))))) @@ -826,9 +822,9 @@ "Enter recursive edit to permit a user to fix some error checkdoc has found. MSG is the error that was found, which is displayed in a help buffer." (with-output-to-temp-buffer "*Checkdoc Help*" - (princ-list - "Error message:\n " msg - "\n\nEdit to fix this problem, and press C-M-c to continue.")) + (mapc #'princ + (list "Error message:\n " msg + "\n\nEdit to fix this problem, and press C-M-c to continue."))) (shrink-window-if-larger-than-buffer (get-buffer-window "*Checkdoc Help*")) (message "When you're done editing press C-M-c to continue.") @@ -947,14 +943,14 @@ (interactive "P") (if take-notes (checkdoc-start-section "checkdoc-comments")) (if (not buffer-file-name) - (error "Can only check comments for a file buffer")) + (error "Can only check comments for a file buffer")) (let* ((checkdoc-spellcheck-documentation-flag (car (memq checkdoc-spellcheck-documentation-flag '(buffer t)))) (checkdoc-autofix-flag (if take-notes 'never checkdoc-autofix-flag)) (e (checkdoc-file-comments-engine)) - (checkdoc-generate-compile-warnings-flag - (or take-notes checkdoc-generate-compile-warnings-flag))) + (checkdoc-generate-compile-warnings-flag + (or take-notes checkdoc-generate-compile-warnings-flag))) (if e (error "%s" (checkdoc-error-text e))) (checkdoc-show-diagnostics) e)) @@ -970,8 +966,8 @@ (if take-notes (checkdoc-start-section "checkdoc-rogue-spaces")) (let* ((checkdoc-autofix-flag (if take-notes 'never checkdoc-autofix-flag)) (e (checkdoc-rogue-space-check-engine nil nil interact)) - (checkdoc-generate-compile-warnings-flag - (or take-notes checkdoc-generate-compile-warnings-flag))) + (checkdoc-generate-compile-warnings-flag + (or take-notes checkdoc-generate-compile-warnings-flag))) (if (not (called-interactively-p 'interactive)) e (if e @@ -1210,34 +1206,34 @@ ;; Add in a menubar with easy-menu (easy-menu-define - nil checkdoc-minor-mode-map "Checkdoc Minor Mode Menu" - '("CheckDoc" - ["Interactive Buffer Style Check" checkdoc t] - ["Interactive Buffer Style and Spelling Check" checkdoc-ispell t] - ["Check Buffer" checkdoc-current-buffer t] - ["Check and Spell Buffer" checkdoc-ispell-current-buffer t] - "---" - ["Interactive Style Check" checkdoc-interactive t] - ["Interactive Style and Spelling Check" checkdoc-ispell-interactive t] - ["Find First Style Error" checkdoc-start t] - ["Find First Style or Spelling Error" checkdoc-ispell-start t] - ["Next Style Error" checkdoc-continue t] - ["Next Style or Spelling Error" checkdoc-ispell-continue t] - ["Interactive Message Text Style Check" checkdoc-message-interactive t] - ["Interactive Message Text Style and Spelling Check" - checkdoc-ispell-message-interactive t] - ["Check Message Text" checkdoc-message-text t] - ["Check and Spell Message Text" checkdoc-ispell-message-text t] - ["Check Comment Style" checkdoc-comments buffer-file-name] - ["Check Comment Style and Spelling" checkdoc-ispell-comments - buffer-file-name] - ["Check for Rogue Spaces" checkdoc-rogue-spaces t] - "---" - ["Check Defun" checkdoc-defun t] - ["Check and Spell Defun" checkdoc-ispell-defun t] - ["Check and Evaluate Defun" checkdoc-eval-defun t] - ["Check and Evaluate Buffer" checkdoc-eval-current-buffer t] - )) + nil checkdoc-minor-mode-map "Checkdoc Minor Mode Menu" + '("CheckDoc" + ["Interactive Buffer Style Check" checkdoc t] + ["Interactive Buffer Style and Spelling Check" checkdoc-ispell t] + ["Check Buffer" checkdoc-current-buffer t] + ["Check and Spell Buffer" checkdoc-ispell-current-buffer t] + "---" + ["Interactive Style Check" checkdoc-interactive t] + ["Interactive Style and Spelling Check" checkdoc-ispell-interactive t] + ["Find First Style Error" checkdoc-start t] + ["Find First Style or Spelling Error" checkdoc-ispell-start t] + ["Next Style Error" checkdoc-continue t] + ["Next Style or Spelling Error" checkdoc-ispell-continue t] + ["Interactive Message Text Style Check" checkdoc-message-interactive t] + ["Interactive Message Text Style and Spelling Check" + checkdoc-ispell-message-interactive t] + ["Check Message Text" checkdoc-message-text t] + ["Check and Spell Message Text" checkdoc-ispell-message-text t] + ["Check Comment Style" checkdoc-comments buffer-file-name] + ["Check Comment Style and Spelling" checkdoc-ispell-comments + buffer-file-name] + ["Check for Rogue Spaces" checkdoc-rogue-spaces t] + "---" + ["Check Defun" checkdoc-defun t] + ["Check and Spell Defun" checkdoc-ispell-defun t] + ["Check and Evaluate Defun" checkdoc-eval-defun t] + ["Check and Evaluate Buffer" checkdoc-eval-current-buffer t] + )) ;; XEmacs requires some weird stuff to add this menu in a minor mode. ;; What is it? @@ -2657,8 +2653,7 @@ (setq checkdoc-pending-errors nil) nil))) -(custom-add-option 'emacs-lisp-mode-hook - (lambda () (checkdoc-minor-mode 1))) +(custom-add-option 'emacs-lisp-mode-hook 'checkdoc-minor-mode) (add-to-list 'debug-ignored-errors "Argument `.*' should appear (as .*) in the doc string") ------------------------------------------------------------ revno: 102290 committer: Stefan Monnier branch nick: trunk timestamp: Mon 2010-11-08 14:09:21 -0500 message: * lisp/emacs-lisp/cl-macs.el (extent-data, extent-face, extent-priority) (extent-end-position, extent-start-position): Remove setf method for non-existing functions. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-11-07 15:45:45 +0000 +++ lisp/ChangeLog 2010-11-08 19:09:21 +0000 @@ -1,3 +1,9 @@ +2010-11-08 Stefan Monnier + + * emacs-lisp/cl-macs.el (extent-data, extent-face, extent-priority) + (extent-end-position, extent-start-position): Remove setf method for + non-existing functions (bug#7319). + 2010-11-07 Stefan Monnier * emacs-lisp/smie.el: Simplify the smie-rules-function return values. === modified file 'lisp/emacs-lisp/cl-macs.el' --- lisp/emacs-lisp/cl-macs.el 2010-11-05 07:34:45 +0000 +++ lisp/emacs-lisp/cl-macs.el 2010-11-08 19:09:21 +0000 @@ -1748,15 +1748,6 @@ (defsetf default-file-modes set-default-file-modes t) (defsetf default-value set-default) (defsetf documentation-property put) -(defsetf extent-data set-extent-data) -(defsetf extent-face set-extent-face) -(defsetf extent-priority set-extent-priority) -(defsetf extent-end-position (ext) (store) - (list 'progn (list 'set-extent-endpoints (list 'extent-start-position ext) - store) store)) -(defsetf extent-start-position (ext) (store) - (list 'progn (list 'set-extent-endpoints store - (list 'extent-end-position ext)) store)) (defsetf face-background (f &optional s) (x) (list 'set-face-background f x s)) (defsetf face-background-pixmap (f &optional s) (x) (list 'set-face-background-pixmap f x s)) ------------------------------------------------------------ revno: 102289 author: Lars Magne Ingebrigtsen committer: Katsumi Yamaoka branch nick: trunk timestamp: Mon 2010-11-08 01:38:47 +0000 message: gnus-group.el (gnus-group-read-ephemeral-group, gnus-group-make-group): Remove superfluous ": " from the prompt. gnus-start.el (gnus-get-unread-articles, gnus-read-active-file): Ignore totally non-existent methods. diff: === modified file 'lisp/gnus/ChangeLog' --- lisp/gnus/ChangeLog 2010-11-07 01:36:33 +0000 +++ lisp/gnus/ChangeLog 2010-11-08 01:38:47 +0000 @@ -1,3 +1,13 @@ +2010-11-07 Lars Magne Ingebrigtsen + + * gnus-start.el (gnus-get-unread-articles): Ignore totally non-existent + methods. + (gnus-read-active-file): Ditto. + + * gnus-group.el (gnus-group-read-ephemeral-group): Remove superfluous + ": " from the prompt. + (gnus-group-make-group): Ditto. + 2010-11-07 Glenn Morris * gnus-bookmark.el (gnus-bookmark-bmenu-show-infos) === modified file 'lisp/gnus/gnus-group.el' --- lisp/gnus/gnus-group.el 2010-11-01 22:21:10 +0000 +++ lisp/gnus/gnus-group.el 2010-11-08 01:38:47 +0000 @@ -2267,7 +2267,7 @@ (list ;; (gnus-read-group "Group name: ") (gnus-group-completing-read) - (gnus-read-method "From method: "))) + (gnus-read-method "From method"))) ;; Transform the select method into a unique server. (when (stringp method) (setq method (gnus-server-to-method method))) @@ -2674,7 +2674,7 @@ (interactive (list (gnus-read-group "Group name: ") - (gnus-read-method "From method: "))) + (gnus-read-method "From method"))) (when (stringp method) (setq method (or (gnus-server-to-method method) method))) === modified file 'lisp/gnus/gnus-start.el' --- lisp/gnus/gnus-start.el 2010-11-01 22:21:10 +0000 +++ lisp/gnus/gnus-start.el 2010-11-08 01:38:47 +0000 @@ -1702,16 +1702,20 @@ (destructuring-bind (method method-type infos dummy) elem (when (and method infos (not (gnus-method-denied-p method))) - (unless (gnus-server-opened method) - (gnus-open-server method)) - (when (and - (gnus-server-opened method) - (gnus-check-backend-function - 'retrieve-group-data-early (car method))) - (when (gnus-check-backend-function 'request-scan (car method)) - (gnus-request-scan nil method)) - (setcar (nthcdr 3 elem) - (gnus-retrieve-group-data-early method infos)))))) + ;; If the open-server method doesn't exist, then the method + ;; itself doesn't exist, so we ignore it. + (if (not (ignore-errors (gnus-get-function method 'open-server))) + (setq type-cache (delq elem type-cache)) + (unless (gnus-server-opened method) + (gnus-open-server method)) + (when (and + (gnus-server-opened method) + (gnus-check-backend-function + 'retrieve-group-data-early (car method))) + (when (gnus-check-backend-function 'request-scan (car method)) + (gnus-request-scan nil method)) + (setcar (nthcdr 3 elem) + (gnus-retrieve-group-data-early method infos))))))) ;; Do the rest of the retrieval. (dolist (elem type-cache) @@ -1982,7 +1986,9 @@ (while (setq method (pop methods)) ;; Only do each method once, in case the methods appear more ;; than once in this list. - (unless (member method methods) + (when (and (not (member method methods)) + ;; Check whether the backend exists. + (ignore-errors (gnus-get-function method 'open-server))) (if (or debug-on-error debug-on-quit) (gnus-read-active-file-1 method force) (condition-case ()