diff options
Diffstat (limited to 'lisp/net')
| -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 @@ | |||
| 199 | (ignore-errors | 199 | (ignore-errors |
| 200 | (tramp-compat-funcall 'font-lock-add-keywords mode keywords how))) | 200 | (tramp-compat-funcall 'font-lock-add-keywords mode keywords how))) |
| 201 | 201 | ||
| 202 | ;; FIXME is this really necessary? Eg Emacs has both l-b-p and p-at-b | ||
| 203 | ;; since at least 21.1. | ||
| 202 | (defsubst tramp-compat-line-beginning-position () | 204 | (defsubst tramp-compat-line-beginning-position () |
| 203 | "Return point at beginning of line (compat function). | 205 | "Return point at beginning of line (compat function). |
| 204 | Calls `line-beginning-position' or `point-at-bol' if defined, else | 206 | Calls `line-beginning-position' or `point-at-bol' if defined, else |
| @@ -209,6 +211,8 @@ own implementation." | |||
| 209 | ((fboundp 'point-at-bol) (tramp-compat-funcall 'point-at-bol)) | 211 | ((fboundp 'point-at-bol) (tramp-compat-funcall 'point-at-bol)) |
| 210 | (t (save-excursion (beginning-of-line) (point))))) | 212 | (t (save-excursion (beginning-of-line) (point))))) |
| 211 | 213 | ||
| 214 | ;; FIXME is this really necessary? Eg Emacs has both l-e-p and p-at-e | ||
| 215 | ;; since at least 21.1. | ||
| 212 | (defsubst tramp-compat-line-end-position () | 216 | (defsubst tramp-compat-line-end-position () |
| 213 | "Return point at end of line (compat function). | 217 | "Return point at end of line (compat function). |
| 214 | Calls `line-end-position' or `point-at-eol' if defined, else | 218 | 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'." | |||
| 529 | 533 | ||
| 530 | ;;; TODO: | 534 | ;;; TODO: |
| 531 | 535 | ||
| 532 | ;; arch-tag: 0e724b18-6699-4f87-ad96-640b272e5c85 | ||
| 533 | ;;; tramp-compat.el ends here | 536 | ;;; tramp-compat.el ends here |