Changeset View
Changeset View
Standalone View
Standalone View
mail/wanderlust/files/patch-utils_ptexinfmt.el
| --- utils/ptexinfmt.el.orig | --- utils/ptexinfmt.el.orig 2005-02-24 08:16:41 UTC | ||||
| +++ utils/ptexinfmt.el | +++ utils/ptexinfmt.el | ||||
| @@ -68,50 +68,50 @@ | @@ -68,50 +68,50 @@ This is last argument in `ptexinfmt-brok | ||||
| "Declare a symbol FACILITY is broken if ASSERTION is nil. | "Declare a symbol FACILITY is broken if ASSERTION is nil. | ||||
| DOCSTRING will be printed if ASSERTION is nil and | DOCSTRING will be printed if ASSERTION is nil and | ||||
| `ptexinfmt-disable-broken-notice-flag' is nil." | `ptexinfmt-disable-broken-notice-flag' is nil." | ||||
| - (` (let ((facility '(, facility)) | - (` (let ((facility '(, facility)) | ||||
| - (docstring (, docstring)) | - (docstring (, docstring)) | ||||
| - (assertion (eval '(, assertion)))) | - (assertion (eval '(, assertion)))) | ||||
| + `(let ((facility ',facility) | + `(let ((facility ',facility) | ||||
| + (docstring ,docstring) | + (docstring ,docstring) | ||||
| ▲ Show 20 Lines • Show All 52 Lines • ▼ Show 20 Lines | |||||
| + (defvar ,name) | + (defvar ,name) | ||||
| + (if (boundp ',name) | + (if (boundp ',name) | ||||
| nil | nil | ||||
| - (defvar (, name) (,@ args))))))) | - (defvar (, name) (,@ args))))))) | ||||
| + (defvar ,name ,@args))))) | + (defvar ,name ,@args))))) | ||||
| ;; sort -fd | ;; sort -fd | ||||
| (ptexinfmt-broken-facility texinfo-format-printindex | (ptexinfmt-broken-facility texinfo-format-printindex | ||||
| @@ -509,7 +509,7 @@ | @@ -509,7 +509,7 @@ For example, @verb\{|@|\} results in @ a | ||||
| (goto-char texinfo-command-start)) | (goto-char texinfo-command-start)) | ||||
| ;; @,{c} ==> c, cedilla accent | ;; @,{c} ==> c, cedilla accent | ||||
| -(put ', 'texinfo-format 'texinfo-format-cedilla-accent) | -(put ', 'texinfo-format 'texinfo-format-cedilla-accent) | ||||
| +(put '\, 'texinfo-format 'texinfo-format-cedilla-accent) | +(put '\, 'texinfo-format 'texinfo-format-cedilla-accent) | ||||
| (ptexinfmt-defun-if-void texinfo-format-cedilla-accent () | (ptexinfmt-defun-if-void texinfo-format-cedilla-accent () | ||||
| (insert (texinfo-parse-arg-discard) ",") | (insert (texinfo-parse-arg-discard) ",") | ||||
| (goto-char texinfo-command-start)) | (goto-char texinfo-command-start)) | ||||