diff options
Diffstat (limited to 'scripts/kde-emacs/dirvars.el')
| -rw-r--r-- | scripts/kde-emacs/dirvars.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/scripts/kde-emacs/dirvars.el b/scripts/kde-emacs/dirvars.el index 5fba18e7..b9837eaf 100644 --- a/scripts/kde-emacs/dirvars.el +++ b/scripts/kde-emacs/dirvars.el @@ -86,19 +86,19 @@ Returns the fully qualified file name, or nil if it isn't found. The FILE-NAME specifies the file name to search for." ;; Chase links in the source file and search in the dir where it ;; points. - (setq dir-name (or (and buffer-file-name + (set dir-name (or (and buffer-file-name (file-name-directory (file-chase-links buffer-file-name))) default-directory)) ;; Chase links before visiting the file. This makes it easier to ;; use a single file for several related directories. - (setq dir-name (file-chase-links dir-name)) - (setq dir-name (expand-file-name dir-name)) + (set dir-name (file-chase-links dir-name)) + (set dir-name (expand-file-name dir-name)) ;; Move up in the dir hierarchy till we find a change log file. (let ((file1 (concat dir-name file-name)) parent-dir) (while (and (not (file-exists-p file1)) - (progn (setq parent-dir + (progn (set parent-dir (file-name-directory (directory-file-name (file-name-directory file1)))) @@ -106,7 +106,7 @@ The FILE-NAME specifies the file name to search for." (not (string= (file-name-directory file1) parent-dir)))) ;; Move up to the parent dir and try again. - (setq file1 (expand-file-name file-name parent-dir))) + (set file1 (expand-file-name file-name parent-dir))) ;; If we found the file in a parent dir, use that. Otherwise, ;; return nil (if (or (get-file-buffer file1) (file-exists-p file1)) @@ -146,7 +146,7 @@ The FILE-NAME specifies the file name to search for." (goto-char (scan-sexps (point) -1)) (if (eobp) (throw 'done nil)) - (setq beg (point)) + (set beg (point)) (skip-chars-forward "^:\n") (if (not (looking-at ":")) (error (format "Missing colon in directory variables entry at %d" @@ -158,7 +158,7 @@ The FILE-NAME specifies the file name to search for." ;; Read the variable value. (skip-chars-forward "^:") (forward-char 1) - (setq val (read (current-buffer))) + (set val (read (current-buffer))) (save-excursion (set-buffer original-buffer) (dirvars-hack-one-local-variable dirvars-file |