[Emacs-diffs] /srv/bzr/emacs/trunk r100454: Avoid (expand-file-name ".").

[Stefan Monnier]

------------------------------------------------------------
revno: 100454
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2010-05-26 10:19:15 -0400
message:
  Avoid (expand-file-name ".").
  * org.el (org-file-complete-link):
  * progmodes/ada-xref.el (ada-gnat-parse-gpr):
  * emulation/edt.el (edt-load-keys): Avoid (expand-file-name ".").
modified:
  lisp/ChangeLog
  lisp/emulation/edt.el
  lisp/org/ChangeLog
  lisp/org/org.el
  lisp/progmodes/ada-xref.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-05-26 04:06:09 +0000
+++ b/lisp/ChangeLog    2010-05-26 14:19:15 +0000
@@ -1,3 +1,8 @@
+2010-05-26  Stefan Monnier  <address@hidden>
+
+       * progmodes/ada-xref.el (ada-gnat-parse-gpr):
+       * emulation/edt.el (edt-load-keys): Avoid (expand-file-name ".").
+
 2010-05-26  Glenn Morris  <address@hidden>
 
        * emulation/edt.el (edt-load-keys): Use locate-library.
@@ -6,8 +11,8 @@
 
        * log-edit.el (log-edit-strip-single-file-name): Default to nil.
        (log-edit-changelog-entries): Doc fix.
-       (log-edit-changelog-insert-entries): Args changed.  Rename
-       relative filenames in ChangeLog entries.  Delete tabs.
+       (log-edit-changelog-insert-entries): Args changed.
+       Rename relative filenames in ChangeLog entries.  Delete tabs.
        (log-edit-insert-changelog-entries): Reorganize return value of
        `log-edit-changelog-entries' to pass filenames to
        log-edit-changelog-insert-entries.

=== modified file 'lisp/emulation/edt.el'
--- a/lisp/emulation/edt.el     2010-05-26 04:06:09 +0000
+++ b/lisp/emulation/edt.el     2010-05-26 14:19:15 +0000
@@ -2072,7 +2072,7 @@
      use it!  Perhaps it's lying around here someplace. \n     ")
          (let ((path (locate-library
                       "edt-mapper"
-                      nil (append (list (expand-file-name ".")) load-path))))
+                      nil (append (list default-directory) load-path))))
            (if path
                (progn
                  (insert (format
@@ -2563,12 +2563,12 @@
 ;;; DEFAULT EDT KEYPAD HELP
 ;;;
 
-;;;
-;;; Upper case commands in the keypad diagram below indicate that the
-;;; emulation should look and feel very much like EDT.  Lower case
-;;; commands are enhancements and/or additions to the EDT keypad
-;;; commands or are native Emacs commands.
-;;;
+;;
+;; Upper case commands in the keypad diagram below indicate that the
+;; emulation should look and feel very much like EDT.  Lower case
+;; commands are enhancements and/or additions to the EDT keypad
+;; commands or are native Emacs commands.
+;;
 
 (defun edt-keypad-help ()
   "DEFAULT EDT Keypad Active.
@@ -2677,7 +2677,7 @@
 
 ;;;
 ;;; EDT emulation screen width commands.
-;;;
+;;
 ;; Some terminals require modification of terminal attributes when
 ;; changing the number of columns displayed, hence the fboundp tests
 ;; below.  These functions are defined in the corresponding terminal

=== modified file 'lisp/org/ChangeLog'
--- a/lisp/org/ChangeLog        2010-05-11 02:04:13 +0000
+++ b/lisp/org/ChangeLog        2010-05-26 14:19:15 +0000
@@ -1,3 +1,7 @@
+2010-05-26  Stefan Monnier  <address@hidden>
+
+       * org.el (org-file-complete-link): Avoid (expand-file-name ".").
+
 2010-05-07  Chong Yidong  <address@hidden>
 
        * Version 23.2 released.

=== modified file 'lisp/org/org.el'
--- a/lisp/org/org.el   2010-04-15 10:11:52 +0000
+++ b/lisp/org/org.el   2010-05-26 14:19:15 +0000
@@ -8316,7 +8316,7 @@
     (setq file (read-file-name "File: "))
     (let ((pwd (file-name-as-directory (expand-file-name ".")))
          (pwd1 (file-name-as-directory (abbreviate-file-name
-                                        (expand-file-name ".")))))
+                                        default-directory))))
       (cond
        ((equal arg '(16))
        (setq link (org-make-link

=== modified file 'lisp/progmodes/ada-xref.el'
--- a/lisp/progmodes/ada-xref.el        2010-01-14 13:14:24 +0000
+++ b/lisp/progmodes/ada-xref.el        2010-05-26 14:19:15 +0000
@@ -381,9 +381,9 @@
          (forward-line 1) ; first directory in list
          (while (not (looking-at "^$")) ; terminate on blank line
            (back-to-indentation) ; skip whitespace
-           (if (looking-at "<Current_Directory>")
-               (add-to-list 'src-dir  (expand-file-name "."))
-             (add-to-list 'src-dir
+           (add-to-list 'src-dir
+                         (if (looking-at "<Current_Directory>")
+                             default-directory
                           (expand-file-name
                            (buffer-substring-no-properties
                             (point) (line-end-position)))))
@@ -395,9 +395,9 @@
          (forward-line 1)
          (while (not (looking-at "^$"))
            (back-to-indentation)
-           (if (looking-at "<Current_Directory>")
-               (add-to-list 'obj-dir (expand-file-name "."))
-             (add-to-list 'obj-dir
+           (add-to-list 'obj-dir
+                         (if (looking-at "<Current_Directory>")
+                             default-directory
                           (expand-file-name
                            (buffer-substring-no-properties
                             (point) (line-end-position)))))