Mercurial > emacs
comparison lisp/progmodes/js.el @ 111433:05dc9dca8729
Replace end-of-line, save-excursion etc with point-at-eol, point-at-bol.
* lisp/mh-e/mh-seq.el (mh-read-msg-list): Use point-at-eol.
* lisp/gnus/gnus-bookmark.el (gnus-bookmark-bmenu-show-infos)
(gnus-bookmark-kill-line): Use point-at-eol.
* lisp/cedet/ede/proj-elisp.el (ede-proj-flush-autoconf): Use point-at-bol.
* lisp/emacs-lisp/chart.el (chart-zap-chars):
* lisp/play/decipher.el (decipher-set-map):
* lisp/progmodes/ada-mode.el (ada-get-current-indent)
(ada-search-ignore-string-comment, ada-tab-hard, ada-untab-hard):
* lisp/progmodes/ada-prj.el (ada-prj-load-from-file, ada-prj-display-help):
* lisp/progmodes/ada-xref.el (ada-initialize-runtime-library)
(ada-get-all-references):
* lisp/progmodes/cperl-mode.el (cperl-electric-paren)
(cperl-electric-rparen, cperl-electric-keyword, cperl-electric-else)
(cperl-linefeed, cperl-sniff-for-indent, cperl-to-comment-or-eol)
(cperl-find-pods-heres, cperl-indent-exp, cperl-fix-line-spacing)
(cperl-word-at-point-hard):
* lisp/progmodes/idlw-shell.el (idlwave-shell-move-or-history)
(idlwave-shell-filename-string, idlwave-shell-batch-command)
(idlwave-shell-display-line):
* lisp/progmodes/idlwave.el (idlwave-show-begin, idlwave-fill-paragraph)
(idlwave-calc-hanging-indent, idlwave-auto-fill, idlwave-template):
* lisp/progmodes/js.el (js--re-search-forward-inner)
(js--re-search-backward-inner):
* lisp/progmodes/vhdl-mode.el (vhdl-align-region-1, vhdl-align-region-2)
(vhdl-fix-clause, vhdl-compose-configuration-architecture):
* lisp/progmodes/ruby-mode.el (ruby-parse-partial, eval-when-compile):
* lisp/textmodes/flyspell.el (flyspell-process-localwords):
* lisp/textmodes/ispell.el (ispell-buffer-local-parsing)
(ispell-buffer-local-dict, ispell-buffer-local-words):
Use point-at-bol and point-at-eol.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 06 Nov 2010 18:36:33 -0700 |
parents | 14dab55b2888 |
children | b47e85affa59 |
comparison
equal
deleted
inserted
replaced
111432:8de1e4554e5e | 111433:05dc9dca8729 |
---|---|
701 (cond ((setq str-terminator (nth 3 parse)) | 701 (cond ((setq str-terminator (nth 3 parse)) |
702 (when (eq str-terminator t) | 702 (when (eq str-terminator t) |
703 (setq str-terminator ?/)) | 703 (setq str-terminator ?/)) |
704 (re-search-forward | 704 (re-search-forward |
705 (concat "\\([^\\]\\|^\\)" (string str-terminator)) | 705 (concat "\\([^\\]\\|^\\)" (string str-terminator)) |
706 (save-excursion (end-of-line) (point)) t)) | 706 (point-at-eol) t)) |
707 ((nth 7 parse) | 707 ((nth 7 parse) |
708 (forward-line)) | 708 (forward-line)) |
709 ((or (nth 4 parse) | 709 ((or (nth 4 parse) |
710 (and (eq (char-before) ?\/) (eq (char-after) ?\*))) | 710 (and (eq (char-before) ?\/) (eq (char-after) ?\*))) |
711 (re-search-forward "\\*/")) | 711 (re-search-forward "\\*/")) |
757 (cond ((setq str-terminator (nth 3 parse)) | 757 (cond ((setq str-terminator (nth 3 parse)) |
758 (when (eq str-terminator t) | 758 (when (eq str-terminator t) |
759 (setq str-terminator ?/)) | 759 (setq str-terminator ?/)) |
760 (re-search-backward | 760 (re-search-backward |
761 (concat "\\([^\\]\\|^\\)" (string str-terminator)) | 761 (concat "\\([^\\]\\|^\\)" (string str-terminator)) |
762 (save-excursion (beginning-of-line) (point)) t)) | 762 (point-at-bol) t)) |
763 ((nth 7 parse) | 763 ((nth 7 parse) |
764 (goto-char (nth 8 parse))) | 764 (goto-char (nth 8 parse))) |
765 ((or (nth 4 parse) | 765 ((or (nth 4 parse) |
766 (and (eq (char-before) ?/) (eq (char-after) ?*))) | 766 (and (eq (char-before) ?/) (eq (char-after) ?*))) |
767 (re-search-backward "/\\*")) | 767 (re-search-backward "/\\*")) |
3375 '(when (fboundp 'folding-add-to-marks-list) | 3375 '(when (fboundp 'folding-add-to-marks-list) |
3376 (folding-add-to-marks-list 'js-mode "// {{{" "// }}}" ))) | 3376 (folding-add-to-marks-list 'js-mode "// {{{" "// }}}" ))) |
3377 | 3377 |
3378 (provide 'js) | 3378 (provide 'js) |
3379 | 3379 |
3380 ;; arch-tag: 1a0d0409-e87f-4fc7-a58c-3731c66ddaac | |
3381 ;; js.el ends here | 3380 ;; js.el ends here |