psgml / psgml-charent.el

Diff from to


 ;;;; psgml-charent.el
-;;; Last edited: Mon Nov 28 22:18:09 1994 by lenst@lysistrate (Lennart Staflin)
+;;; Last edited: 1999-12-18 18:54:53 lenst
 ;;; $Id$
 ;; Copyright (C) 1994 Lennart Staflin
 ;;;; Variable declarations
 (defvar sgml-display-char-list-filename
-  (concat (or (locate-data-directory "psgml")
-	      (locate-data-directory "sgml")) "")
+  (expand-file-name ""
+                    (file-name-directory
+                     (or (locate-data-directory "psgml")
+                         (locate-data-directory "sgml"))))
   "*Name of file holding relations between character codes and character
 names of displayable characters")
       (goto-char (point-min))
        (while (re-search-forward "&\\(\\w\\(\\w\\|\\s_\\)*\\);?" nil t)
-	 (setq charent (buffer-substring (match-beginning 1) (match-end 1)))
+	 (setq charent (buffer-substring
+                        (match-beginning 1) (match-end 1)))
 	 (if (setq replacement (cdr (assoc charent charent-to-char)))
 	     (replace-match replacement t t)))))))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.