diff options
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index cd6a9be099c..36f5e2fee49 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1911,12 +1911,11 @@ be a list of the form returned by `event-start' and `event-end'." (defalias 'store-match-data #'set-match-data) (defalias 'chmod #'set-file-modes) (defalias 'mkdir #'make-directory) -;; These are the XEmacs names: -(defalias 'point-at-eol #'line-end-position) -(defalias 'point-at-bol #'line-beginning-position) -(define-obsolete-function-alias 'user-original-login-name - #'user-login-name "28.1") +;; These were the XEmacs names, now obsolete: +(define-obsolete-function-alias 'point-at-eol #'line-end-position "29.1") +(define-obsolete-function-alias 'point-at-bol #'line-beginning-position "29.1") +(define-obsolete-function-alias 'user-original-login-name #'user-login-name "28.1") ;; These are in obsolete/autoload.el, but are commonly used by ;; third-party scripts that assume that they exist without requiring @@ -6904,10 +6903,7 @@ OBJECT if it is readable." (defun delete-line () "Delete the current line." - (delete-region (line-beginning-position) - (progn - (forward-line 1) - (point)))) + (delete-region (pos-bol) (pos-bol 2))) (defun ensure-empty-lines (&optional lines) "Ensure that there are LINES number of empty lines before point. |