emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r103307: * lisp/dired-x.el (dired-fil


From: Glenn Morris
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r103307: * lisp/dired-x.el (dired-filename-at-point): Fix 8-year old typo.
Date: Wed, 16 Feb 2011 20:38:23 -0800
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 103307
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2011-02-16 20:38:23 -0800
message:
  * lisp/dired-x.el (dired-filename-at-point): Fix 8-year old typo.
  Introduced in CVS rev 1.47, 2003/01/27.
modified:
  lisp/ChangeLog
  lisp/dired-x.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-16 22:10:43 +0000
+++ b/lisp/ChangeLog    2011-02-17 04:38:23 +0000
@@ -1,3 +1,7 @@
+2011-02-17  Glenn Morris  <address@hidden>
+
+       * dired-x.el (dired-filename-at-point): Fix 8-year old typo.
+
 2011-02-16  Ken Manheimer  <address@hidden>
 
        * allout-widgets.el: New allout extension that shows allout

=== modified file 'lisp/dired-x.el'
--- a/lisp/dired-x.el   2011-02-16 08:51:39 +0000
+++ b/lisp/dired-x.el   2011-02-17 04:38:23 +0000
@@ -1678,7 +1678,7 @@
            (setq prefix
                  (and (string-match
                        "^\\w+@"
-                       (buffer-substring start (line-beginning-position)))
+                       (buffer-substring start (line-end-position)))
                       "/"))
             (goto-char start)
             (if (string-match "[/~]" (char-to-string (preceding-char)))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]