diff options
| author | Glenn Morris | 2010-11-06 18:50:52 -0700 |
|---|---|---|
| committer | Glenn Morris | 2010-11-06 18:50:52 -0700 |
| commit | 3ba6b2ee6aa77f5a05dc91e8a46ac559f352fee7 (patch) | |
| tree | 7e902b5b04507bc639e966b1a3f3ca4e7ebe8e0f /lisp/eshell | |
| parent | 76fc02b654eda5dfa1e83b0b9909b097a105785d (diff) | |
| download | emacs-3ba6b2ee6aa77f5a05dc91e8a46ac559f352fee7.tar.gz emacs-3ba6b2ee6aa77f5a05dc91e8a46ac559f352fee7.zip | |
Replace unneeded compatibility definitions with point-at-bol, point-at-eol.
* lisp/progmodes/verilog-mode.el (verilog-get-beg-of-line)
(verilog-get-end-of-line): Remove.
(verilog-within-string, verilog-re-search-forward-substr)
(verilog-re-search-backward-substr, verilog-set-auto-endcomments)
(verilog-surelint-off, verilog-getopt-file, verilog-highlight-region):
Use point-at-bol, point-at-eol.
* lisp/progmodes/pascal.el (pascal-get-beg-of-line, pascal-get-end-of-line):
Remove.
(pascal-declaration-end, pascal-declaration-beg, pascal-within-string)
(electric-pascal-terminate-line, pascal-set-auto-comments)
(pascal-indent-paramlist, pascal-indent-declaration)
(pascal-get-lineup-indent, pascal-func-completion)
(pascal-get-completion-decl, pascal-var-completion, pascal-completion):
Use point-at-bol, point-at-eol.
* lisp/progmodes/flymake.el (flymake-line-beginning-position)
(flymake-line-end-position): Remove.
(flymake-highlight-line): Use point-at-bol, point-at-eol.
* lisp/eshell/esh-util.el (line-end-position, line-beginning-position):
Remove compat definitions.
* net/tramp/tramp-compat.el: Comment.
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/esh-util.el | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el index 377fd6b08e4..01699d8ed85 100644 --- a/lisp/eshell/esh-util.el +++ b/lisp/eshell/esh-util.el | |||
| @@ -536,14 +536,6 @@ list." | |||
| 536 | (eshell-read-hosts eshell-hosts-file 'eshell-host-names | 536 | (eshell-read-hosts eshell-hosts-file 'eshell-host-names |
| 537 | 'eshell-host-timestamp))) | 537 | 'eshell-host-timestamp))) |
| 538 | 538 | ||
| 539 | (unless (fboundp 'line-end-position) | ||
| 540 | (defsubst line-end-position (&optional N) | ||
| 541 | (save-excursion (end-of-line N) (point)))) | ||
| 542 | |||
| 543 | (unless (fboundp 'line-beginning-position) | ||
| 544 | (defsubst line-beginning-position (&optional N) | ||
| 545 | (save-excursion (beginning-of-line N) (point)))) | ||
| 546 | |||
| 547 | (unless (fboundp 'subst-char-in-string) | 539 | (unless (fboundp 'subst-char-in-string) |
| 548 | (defun subst-char-in-string (fromchar tochar string &optional inplace) | 540 | (defun subst-char-in-string (fromchar tochar string &optional inplace) |
| 549 | "Replace FROMCHAR with TOCHAR in STRING each time it occurs. | 541 | "Replace FROMCHAR with TOCHAR in STRING each time it occurs. |
| @@ -802,5 +794,4 @@ gid format. Valid values are 'string and 'integer, defaulting to | |||
| 802 | 794 | ||
| 803 | (provide 'esh-util) | 795 | (provide 'esh-util) |
| 804 | 796 | ||
| 805 | ;; arch-tag: 70159778-5c7a-480a-bae4-3ad332fca19d | ||
| 806 | ;;; esh-util.el ends here | 797 | ;;; esh-util.el ends here |