Mercurial > emacs
comparison lisp/hexl.el @ 17436:2a9fdbfcb993
Add defgroup; use defcustom for user vars.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 13 Apr 1997 07:51:54 +0000 |
| parents | 46fad1457030 |
| children | 7b61d509af8a |
comparison
equal
deleted
inserted
replaced
| 17435:b104a6fb7fa3 | 17436:2a9fdbfcb993 |
|---|---|
| 51 | 51 |
| 52 ;; | 52 ;; |
| 53 ;; vars here | 53 ;; vars here |
| 54 ;; | 54 ;; |
| 55 | 55 |
| 56 (defvar hexl-program "hexl" | 56 (defgroup hexl nil |
| 57 "Edit a file in a hex dump format using the hexl filter." | |
| 58 :group 'data) | |
| 59 | |
| 60 | |
| 61 (defcustom hexl-program "hexl" | |
| 57 "The program that will hexlify and dehexlify its stdin. | 62 "The program that will hexlify and dehexlify its stdin. |
| 58 `hexl-program' will always be concatenated with `hexl-options' | 63 `hexl-program' will always be concatenated with `hexl-options' |
| 59 and \"-de\" when dehexlifying a buffer.") | 64 and \"-de\" when dehexlifying a buffer." |
| 60 | 65 :type 'string |
| 61 (defvar hexl-iso "" | 66 :group 'hexl) |
| 67 | |
| 68 (defcustom hexl-iso "" | |
| 62 "If your emacs can handle ISO characters, this should be set to | 69 "If your emacs can handle ISO characters, this should be set to |
| 63 \"-iso\" otherwise it should be \"\".") | 70 \"-iso\" otherwise it should be \"\"." |
| 64 | 71 :type 'string |
| 65 (defvar hexl-options (format "-hex %s" hexl-iso) | 72 :group 'hexl) |
| 66 "Options to hexl-program that suit your needs.") | 73 |
| 67 | 74 (defcustom hexl-options (format "-hex %s" hexl-iso) |
| 68 (defvar hexlify-command | 75 "Options to hexl-program that suit your needs." |
| 76 :type 'string | |
| 77 :group 'hexl) | |
| 78 | |
| 79 (defcustom hexlify-command | |
| 69 (format "%s%s %s" exec-directory hexl-program hexl-options) | 80 (format "%s%s %s" exec-directory hexl-program hexl-options) |
| 70 "The command to use to hexlify a buffer.") | 81 "The command to use to hexlify a buffer." |
| 71 | 82 :type 'string |
| 72 (defvar dehexlify-command | 83 :group 'hexl) |
| 84 | |
| 85 (defcustom dehexlify-command | |
| 73 (format "%s%s -de %s" exec-directory hexl-program hexl-options) | 86 (format "%s%s -de %s" exec-directory hexl-program hexl-options) |
| 74 "The command to use to unhexlify a buffer.") | 87 "The command to use to unhexlify a buffer." |
| 88 :type 'string | |
| 89 :group 'hexl) | |
| 75 | 90 |
| 76 (defvar hexl-max-address 0 | 91 (defvar hexl-max-address 0 |
| 77 "Maximum offset into hexl buffer.") | 92 "Maximum offset into hexl buffer.") |
| 78 | 93 |
| 79 (defvar hexl-mode-map nil) | 94 (defvar hexl-mode-map nil) |