diff options
Diffstat (limited to 'editors/psgml/files/post-patch-psgml.el')
-rw-r--r-- | editors/psgml/files/post-patch-psgml.el | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/editors/psgml/files/post-patch-psgml.el b/editors/psgml/files/post-patch-psgml.el new file mode 100644 index 000000000000..a8cf9ce3166e --- /dev/null +++ b/editors/psgml/files/post-patch-psgml.el @@ -0,0 +1,76 @@ +--- psgml.el.orig 2012-08-04 11:43:47.000000000 +0900 ++++ psgml.el 2012-08-04 11:43:51.000000000 +0900 +@@ -381,7 +381,7 @@ + (put 'sgml-system-path 'sgml-type 'file-list) + + (defvar sgml-public-map (or (sgml-parse-colon-path (getenv "SGML_PATH")) +- '("%S" "@prefix@/share/sgml/%o/%c/%d" )) ++ '("%S" "/usr/local/share/sgml/%o/%c/%d" )) + "*Mapping from public identifiers to file names. + This is a list of possible file names. To find the file for a public + identifier the elements of the list are used one at the time from the +@@ -407,15 +407,15 @@ + (defvar sgml-catalog-files (or (delete nil + (sgml-parse-colon-path + (getenv "SGML_CATALOG_FILES"))) +- '("catalog" "@prefix@/share/sgml/catalog" +- "@prefix@/share/xml/catalog")) ++ '("catalog" "/usr/local/share/sgml/catalog" ++ "/usr/local/share/xml/catalog")) + "*List of catalog entry files. + The files are in the format defined in the SGML Open Draft Technical + Resolution on Entity Management.") + (put 'sgml-catalog-files 'sgml-type 'file-list) + +-(defvar sgml-ecat-files '("ECAT" "~/sgml/ECAT" "@prefix@/share/sgml/ECAT" +- "@prefix@/share/xml/ECAT") ++(defvar sgml-ecat-files '("ECAT" "~/sgml/ECAT" "/usr/local/share/sgml/ECAT" ++ "/usr/local/share/xml/ECAT") + "*List of catalog files for PSGML.") + (put 'sgml-ecat-files 'sgml-type 'file-list) + +@@ -724,9 +724,9 @@ + + (defun sgml-markup (entry text) + (cons entry +- (` (lambda () ++ `(lambda () + (interactive) +- (sgml-insert-markup (, text)))))) ++ (sgml-insert-markup ,text)))) + + (defun sgml-insert-markup (text) + (let ((end (sgml-mouse-region)) +@@ -1042,13 +1042,13 @@ + (defun sgml-compute-insert-dtd-items () + (loop for e in sgml-custom-dtd collect + (vector (first e) +- (` (sgml-doctype-insert (, (cadr e)) '(, (cddr e)))) ++ `(sgml-doctype-insert ,(cadr e) ',(cddr e)) + t))) + + (defun sgml-compute-custom-markup-items () + (loop for e in sgml-custom-markup collect + (vector (first e) +- (` (sgml-insert-markup (, (cadr e)))) ++ `(sgml-insert-markup ,(cadr e)) + t))) + + (defun sgml-build-custom-menus () +@@ -1231,12 +1231,14 @@ + (make-local-variable 'text-property-default-nonsticky) + ;; see `sgml-set-face-for': + (add-to-list 'text-property-default-nonsticky '(face . t))) +- (make-local-hook 'post-command-hook) ++ (if (fboundp 'make-local-hook) ++ (eval '(make-local-hook 'post-command-hook))) + (add-hook 'post-command-hook 'sgml-command-post 'append 'local) + (unless sgml-running-lucid + ;; XEmacs 20.4 doesn't handle local activate-menubar-hook + ;; it tries to call the function `t' when using the menubar +- (make-local-hook 'activate-menubar-hook)) ++ (if (fboundp 'make-local-hook) ++ (eval '(make-local-hook 'activate-menubar-hook)))) + (add-hook 'activate-menubar-hook 'sgml-update-all-options-menus + nil 'local) + (run-hooks 'text-mode-hook 'psgml-mode-hook) |