Mercurial > emacs
comparison lisp/progmodes/idlw-shell.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 | a3e1f7134e6e |
children | 56b71cddc9c5 |
comparison
equal
deleted
inserted
replaced
111432:8de1e4554e5e | 111433:05dc9dca8729 |
---|---|
1456 (process-mark (get-buffer-process (current-buffer))))) | 1456 (process-mark (get-buffer-process (current-buffer))))) |
1457 (arg (or arg 1)) | 1457 (arg (or arg 1)) |
1458 (arg (if up arg (- arg)))) | 1458 (arg (if up arg (- arg)))) |
1459 (if (eq t idlwave-shell-arrows-do-history) (goto-char proc-pos)) | 1459 (if (eq t idlwave-shell-arrows-do-history) (goto-char proc-pos)) |
1460 (if (and idlwave-shell-arrows-do-history | 1460 (if (and idlwave-shell-arrows-do-history |
1461 (>= (1+ (save-excursion (end-of-line) (point))) proc-pos)) | 1461 (>= (1+ (point-at-eol)) proc-pos)) |
1462 (comint-previous-input arg) | 1462 (comint-previous-input arg) |
1463 (forward-line (- arg))))) | 1463 (forward-line (- arg))))) |
1464 | 1464 |
1465 (defun idlwave-shell-up-or-history (&optional arg) | 1465 (defun idlwave-shell-up-or-history (&optional arg) |
1466 "When in last line of process buffer, move to previous input. | 1466 "When in last line of process buffer, move to previous input. |
2209 (if (looking-at "[ \t]*[.]\\([^ \t\n\r]+\\)[ \t]") | 2209 (if (looking-at "[ \t]*[.]\\([^ \t\n\r]+\\)[ \t]") |
2210 (match-string 1))))) | 2210 (match-string 1))))) |
2211 | 2211 |
2212 (defun idlwave-shell-filename-string () | 2212 (defun idlwave-shell-filename-string () |
2213 "Return t if in a string and after what could be a file name." | 2213 "Return t if in a string and after what could be a file name." |
2214 (let ((limit (save-excursion (beginning-of-line) (point)))) | 2214 (let ((limit (point-at-bol))) |
2215 (save-excursion | 2215 (save-excursion |
2216 ;; Skip backwards over file name chars | 2216 ;; Skip backwards over file name chars |
2217 (skip-chars-backward idlwave-shell-file-name-chars limit) | 2217 (skip-chars-backward idlwave-shell-file-name-chars limit) |
2218 ;; Check of the next char is a string delimiter | 2218 ;; Check of the next char is a string delimiter |
2219 (memq (preceding-char) '(?\' ?\"))))) | 2219 (memq (preceding-char) '(?\' ?\"))))) |
2220 | 2220 |
2221 (defun idlwave-shell-batch-command () | 2221 (defun idlwave-shell-batch-command () |
2222 "Return t if we're in a batch command statement like @foo" | 2222 "Return t if we're in a batch command statement like @foo" |
2223 (let ((limit (save-excursion (beginning-of-line) (point)))) | 2223 (let ((limit (point-at-bol))) |
2224 (save-excursion | 2224 (save-excursion |
2225 ;; Skip backwards over filename | 2225 ;; Skip backwards over filename |
2226 (skip-chars-backward idlwave-shell-file-name-chars limit) | 2226 (skip-chars-backward idlwave-shell-file-name-chars limit) |
2227 (skip-chars-backward " \t" limit) | 2227 (skip-chars-backward " \t" limit) |
2228 (and (eq (preceding-char) ?@) (not (idlwave-in-quote)))))) | 2228 (and (eq (preceding-char) ?@) (not (idlwave-in-quote)))))) |
2396 (overlay-put idlwave-shell-stop-line-overlay 'face | 2396 (overlay-put idlwave-shell-stop-line-overlay 'face |
2397 (if idlwave-shell-electric-debug-mode | 2397 (if idlwave-shell-electric-debug-mode |
2398 idlwave-shell-electric-stop-line-face | 2398 idlwave-shell-electric-stop-line-face |
2399 idlwave-shell-stop-line-face)) | 2399 idlwave-shell-stop-line-face)) |
2400 (move-overlay idlwave-shell-stop-line-overlay | 2400 (move-overlay idlwave-shell-stop-line-overlay |
2401 (point) (save-excursion (end-of-line) (point)) | 2401 (point) (point-at-eol) |
2402 (current-buffer))) | 2402 (current-buffer))) |
2403 ;; use the arrow instead, but only if marking is wanted. | 2403 ;; use the arrow instead, but only if marking is wanted. |
2404 (if idlwave-shell-mark-stop-line | 2404 (if idlwave-shell-mark-stop-line |
2405 (setq overlay-arrow-string idlwave-shell-overlay-arrow)) | 2405 (setq overlay-arrow-string idlwave-shell-overlay-arrow)) |
2406 (or overlay-arrow-position ; create the marker if necessary | 2406 (or overlay-arrow-position ; create the marker if necessary |
4691 (idlwave-toolbar-toggle)) | 4691 (idlwave-toolbar-toggle)) |
4692 | 4692 |
4693 (if idlwave-shell-use-toolbar | 4693 (if idlwave-shell-use-toolbar |
4694 (add-hook 'idlwave-shell-mode-hook 'idlwave-toolbar-add-everywhere)) | 4694 (add-hook 'idlwave-shell-mode-hook 'idlwave-toolbar-add-everywhere)) |
4695 | 4695 |
4696 ;; arch-tag: 20c2e8ce-0709-41d8-a5b6-bb039148440a | |
4697 ;;; idlw-shell.el ends here | 4696 ;;; idlw-shell.el ends here |