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) |