diff options
author | Glenn Morris <rgm@gnu.org> | 2010-11-06 18:50:52 -0700 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2010-11-06 18:50:52 -0700 |
commit | 3ba6b2ee6aa77f5a05dc91e8a46ac559f352fee7 (patch) | |
tree | 7e902b5b04507bc639e966b1a3f3ca4e7ebe8e0f /lisp/eshell/esh-util.el | |
parent | 76fc02b654eda5dfa1e83b0b9909b097a105785d (diff) | |
download | emacs-3ba6b2ee6aa77f5a05dc91e8a46ac559f352fee7.tar.gz emacs-3ba6b2ee6aa77f5a05dc91e8a46ac559f352fee7.tar.bz2 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/esh-util.el')
-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." (eshell-read-hosts eshell-hosts-file 'eshell-host-names 'eshell-host-timestamp))) -(unless (fboundp 'line-end-position) - (defsubst line-end-position (&optional N) - (save-excursion (end-of-line N) (point)))) - -(unless (fboundp 'line-beginning-position) - (defsubst line-beginning-position (&optional N) - (save-excursion (beginning-of-line N) (point)))) - (unless (fboundp 'subst-char-in-string) (defun subst-char-in-string (fromchar tochar string &optional inplace) "Replace FROMCHAR with TOCHAR in STRING each time it occurs. @@ -802,5 +794,4 @@ gid format. Valid values are 'string and 'integer, defaulting to (provide 'esh-util) -;; arch-tag: 70159778-5c7a-480a-bae4-3ad332fca19d ;;; esh-util.el ends here |