diff options
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/eudc.el | 6 | ||||
| -rw-r--r-- | lisp/net/ldap.el | 5 | ||||
| -rw-r--r-- | lisp/net/quickurl.el | 9 |
3 files changed, 5 insertions, 15 deletions
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index 384ddbbecf2..282a60a8288 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el @@ -830,10 +830,7 @@ see `eudc-inline-expansion-servers'" (let* ((end (point)) (beg (save-excursion (if (re-search-backward "\\([:,]\\|^\\)[ \t]*" - (save-excursion - (beginning-of-line) - (point)) - 'move) + (point-at-bol) 'move) (goto-char (match-end 0))) (point))) (query-words (split-string (buffer-substring beg end) "[ \t]+")) @@ -1295,5 +1292,4 @@ This does nothing except loading eudc by autoload side-effect." (provide 'eudc) -;; arch-tag: e18872b6-db83-400b-869d-be54e9a4160c ;;; eudc.el ends here diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el index 17f6acce0f4..066dbd8bea0 100644 --- a/lisp/net/ldap.el +++ b/lisp/net/ldap.el @@ -579,9 +579,7 @@ an alist of attribute/value pairs." (while (progn (skip-chars-forward " \t\n") (not (eobp))) - (setq dn (buffer-substring (point) (save-excursion - (end-of-line) - (point)))) + (setq dn (buffer-substring (point) (point-at-eol))) (forward-line 1) (while (looking-at "^\\([A-Za-z][-A-Za-z0-9]*\ \\|[0-9]+\\(?:\\.[0-9]+\\)*\\)\\(;[-A-Za-z0-9]+\\)*[=:\t ]+\ @@ -617,5 +615,4 @@ an alist of attribute/value pairs." (provide 'ldap) -;; arch-tag: 47913a76-6155-42e6-ac58-6d28b5d50eb0 ;;; ldap.el ends here diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el index 4a8625ae745..4e99f542b32 100644 --- a/lisp/net/quickurl.el +++ b/lisp/net/quickurl.el @@ -1,7 +1,7 @@ ;;; quickurl.el --- insert an URL based on text at point in buffer -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Dave Pearson <davep@davep.org> ;; Maintainer: Dave Pearson <davep@davep.org> @@ -506,9 +506,7 @@ TYPE dictates what will be inserted, options are: `with-lookup' - Insert \"lookup <URL:url>\" `with-desc' - Insert \"description <URL:url>\" `lookup' - Insert the lookup for that URL" - (let ((url (nth (save-excursion - (beginning-of-line) - (count-lines (point-min) (point))) + (let ((url (nth (count-lines (point-min) (line-beginning-position)) quickurl-urls))) (if url (with-current-buffer quickurl-list-last-buffer @@ -542,5 +540,4 @@ TYPE dictates what will be inserted, options are: (provide 'quickurl) -;; arch-tag: a8183ea5-80c2-4082-a7d1-b0fdf2da467e ;;; quickurl.el ends here |