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/net/tramp-compat.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/net/tramp-compat.el')
| -rw-r--r-- | lisp/net/tramp-compat.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index 130e3122df9..f6f2e116eda 100644 --- a/lisp/net/tramp-compat.el +++ b/lisp/net/tramp-compat.el @@ -199,6 +199,8 @@ (ignore-errors (tramp-compat-funcall 'font-lock-add-keywords mode keywords how))) +;; FIXME is this really necessary? Eg Emacs has both l-b-p and p-at-b +;; since at least 21.1. (defsubst tramp-compat-line-beginning-position () "Return point at beginning of line (compat function). Calls `line-beginning-position' or `point-at-bol' if defined, else @@ -209,6 +211,8 @@ own implementation." ((fboundp 'point-at-bol) (tramp-compat-funcall 'point-at-bol)) (t (save-excursion (beginning-of-line) (point))))) +;; FIXME is this really necessary? Eg Emacs has both l-e-p and p-at-e +;; since at least 21.1. (defsubst tramp-compat-line-end-position () "Return point at end of line (compat function). Calls `line-end-position' or `point-at-eol' if defined, else @@ -529,5 +533,4 @@ EOL-TYPE can be one of `dos', `unix', or `mac'." ;;; TODO: -;; arch-tag: 0e724b18-6699-4f87-ad96-640b272e5c85 ;;; tramp-compat.el ends here |