* allout.el bugs
@ 2002-04-23 23:01 Daiki Ueno
0 siblings, 0 replies; only message in thread
From: Daiki Ueno @ 2002-04-23 23:01 UTC (permalink / raw)
This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.
Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.
In GNU Emacs 21.2.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2002-04-24 on aquair
configured using `configure --with-xpm --with-jpeg -with-tiff --with-gif --with-png --with-x'
Important settings:
value of $LC_ALL: nil
value of $LC_COLLATE: nil
value of $LC_CTYPE: nil
value of $LC_MESSAGES: nil
value of $LC_MONETARY: nil
value of $LC_NUMERIC: nil
value of $LC_TIME: nil
value of $LANG: ja_JP.UTF-8
locale-coding-system: nil
default-enable-multibyte-characters: t
Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:
I'm using allout.el, I see various bugs and buglets:
* outline-title contains an unknown function, current-buffer-name.
* outline-make-topic-prefix resets the header-prefix when depth == 1 (is
this a feature?)
* "Mapping and processing of topics" are totaly broken, because the
schema of LISTIFIED is mismatched in places:
- The docstring of outline-listify-exposed says what the function
returns is (DEPTH PREFIX BULLET STRINGS). However, the function omits
BULLET from the return value.
- The docstring of outline-insert-listified says that it should be
(DEPTH PREFIX STRINGS) or (DEPTH PREFIX STRINGS BULLET)
- outline-latexify-one-item accepts it as a series of arguments.
* The macro my-region-active-p is used before it is defined.
* XEmacs: outline-latex-verb-quote supplies a character type value to
number-to-string, so we need to convert it into an integer.
The attached patch temporarily fixes these things.
--- allout.el 27 Mar 2002 20:13:03 -0000 1.32
+++ allout.el 23 Apr 2002 22:36:40 -0000
@@ -381,7 +381,7 @@ (defcustom outline-title-style "\\Large\
:type 'string
:group 'allout)
;;;_ - outline-title
-(defcustom outline-title '(or buffer-file-name (current-buffer-name))
+(defcustom outline-title '(or buffer-file-name (buffer-name))
"*Expression to be evaluated to determine the title for LaTeX
formatted copy."
:type 'sexp
@@ -2626,7 +2626,7 @@ (defun outline-make-topic-prefix (&optio
(cond
; Simplest situation - level 1:
- ((<= depth 1) (setq header-lead "") outline-primary-bullet)
+ ((<= depth 1) outline-primary-bullet)
; Simple, too: all asterisks:
(outline-old-style-prefixes
;; Cheat - make body the whole thing, null out header-lead and
@@ -4160,8 +4160,8 @@ (defun outline-listify-exposed (&optiona
;; Goto initial topic, and register preceeding stuff, if any:
(if (> (outline-goto-prefix) start)
;; First topic follows beginning point - register preliminary stuff:
- (setq result (list (list 0 "" nil
- (buffer-substring start (1- (point)))))))
+ (setq result (list (list 0 "" ""
+ (list (buffer-substring start (1- (point))))))))
(while (and (not done)
(not (eobp)) ; Loop until we've covered the region.
(not (> (point) end)))
@@ -4211,6 +4211,7 @@ (defun outline-listify-exposed (&optiona
gone-out)
(outline-stringify-flat-index-plain
format))
+ bullet
strings
special))
((eq format 'indent)
@@ -4218,13 +4219,15 @@ (defun outline-listify-exposed (&optiona
(list depth
(concat (make-string (1+ depth) ? )
(substring prefix -1))
+ bullet
strings)
(list depth
(make-string depth ? )
+ bullet
strings)))
(t (error "outline-listify-exposed: %s %s"
"invalid format" format))))
- (list depth prefix strings))
+ (list depth prefix bullet strings))
result))
;; Reasses format, if any:
(if (and format (listp format))
@@ -4277,7 +4280,9 @@ (defun outline-process-exposed (&optiona
; defaulting if necessary:
(if (not func) (setq func 'outline-insert-listified))
(if (not (and from to))
- (if (my-region-active-p)
+ (if (if (fboundp 'region-active-p)
+ (region-active-p)
+ mark-active)
(setq from (region-beginning) to (region-end))
(setq from (point-min) to (point-max))))
(if frombuf
@@ -4311,26 +4316,25 @@ (defun outline-process-exposed (&optiona
(defun outline-insert-listified (listified)
"Insert contents of listified outline portion in current buffer.
-Listified is a list representing each topic header and body:
-
- \`(depth prefix text)'
-
-or \`(depth prefix text bullet-plus)'
-
-If `bullet-plus' is specified, it is inserted just after the entire prefix."
+LISTIFIED is a list representing each topic header and body:
+\(DEPTH PREFIX BULLET STRINGS)."
(setq listified (cdr listified))
- (let ((prefix (prog1
+ (let* ((depth (prog1
(car listified)
(setq listified (cdr listified))))
- (text (prog1
- (car listified)
- (setq listified (cdr listified))))
- (bullet-plus (car listified)))
- (insert prefix)
- (if bullet-plus (insert (concat " " bullet-plus)))
- (while text
- (insert (car text))
- (if (setq text (cdr text))
+ (prefix (prog1
+ (car listified)
+ (setq listified (cdr listified))))
+ (bullet (prog1
+ (car listified)
+ (setq listified (cdr listified))))
+ (strings (prog1
+ (car listified)
+ (setq listified (cdr listified)))))
+ (insert prefix " " bullet)
+ (while strings
+ (insert (car strings))
+ (if (setq strings (cdr strings))
(insert "\n")))
(insert "\n")))
;;;_ > outline-copy-exposed-to-buffer (&optional arg tobuf format)
@@ -4419,7 +4423,12 @@ (defun outline-latex-verb-quote (str &op
(mapconcat (function
(lambda (char)
(cond ((memq char '(?\\ ?$ ?% ?# ?& ?{ ?} ?_ ?^ ?- ?*))
- (concat "\\char" (number-to-string char) "{}"))
+ (concat "\\char"
+ (number-to-string
+ (if (fboundp 'char-to-int)
+ (char-to-int char)
+ char))
+ "{}"))
((= char ?\n) "\\\\")
(t (char-to-string char)))))
str
@@ -4495,7 +4504,7 @@ (defun outline-insert-latex-header (buf)
(outline-latex-verb-quote (if outline-title
(condition-case err
(eval outline-title)
- ('error "<unnamed buffer>"))
+ (error "<unnamed buffer>"))
"Unnamed Outline"))
"}\n"
"\\end{center}\n\n"))
@@ -4523,20 +4532,32 @@ (defun outline-insert-latex-trailer (buf
(set-buffer buf)
(insert "\n\\end{document}\n"))
;;;_ > outline-latexify-one-item (depth prefix bullet text)
-(defun outline-latexify-one-item (depth prefix bullet text)
+(defun outline-latexify-one-item (listified)
"Insert LaTeX commands for formatting one outline item.
-Args are the topics numeric DEPTH, the header PREFIX lead string, the
-BULLET string, and a list of TEXT strings for the body."
- (let* ((head-line (if text (car text)))
- (body-lines (cdr text))
+LISTIFIED is a list representing each topic header and body:
+\(DEPTH PREFIX BULLET STRINGS)."
+ (let* ((depth (prog1
+ (car listified)
+ (setq listified (cdr listified))))
+ (prefix (prog1
+ (car listified)
+ (setq listified (cdr listified))))
+ (bullet (prog1
+ (car listified)
+ (setq listified (cdr listified))))
+ (strings (prog1
+ (car listified)
+ (setq listified (cdr listified))))
+ (head-line (if strings (car strings)))
+ (body-lines (cdr strings))
(curr-line)
body-content bop)
; Do the head line:
(insert (concat "\\OneHeadLine{\\verb\1 "
(outline-latex-verb-quote bullet)
"\1}{"
- depth
+ (number-to-string depth)
"}{\\verb\1 "
(if head-line
(outline-latex-verb-quote head-line)
@@ -4704,11 +4725,6 @@ (defun regexp-sans-escapes (regexp &opti
(regexp-sans-escapes (substring regexp 1)))
;; Exclude first char, but maintain count:
(regexp-sans-escapes (substring regexp 1) successive-backslashes))))
-;;;_ > my-region-active-p ()
-(defmacro my-region-active-p ()
- (if (fboundp 'region-active-p)
- '(region-active-p)
- 'mark-active))
;;;_ - add-hook definition for divergent emacsen
;;;_ > add-hook (hook function &optional append)
(if (not (fboundp 'add-hook))
Recent input:
<escape> x r e p o r t <tab> <return> <return> C-x
1 C-x k <return> y e s <return> <escape> x <escape>
p <return>
Recent messages:
For information about the GNU Project and its goals, type C-h C-p.
Loading emacsbug...done
Loading message...
Loading eword-encode...done
Loading message...done
Loading mail-extr...done
Loading gnus-util...done
Fill column set to 72 (was 70)
Loading view...done
Type C-c C-x C-z to exit MIME mode, and type C-c C-x ? to get help.
Regards,
--
Daiki Ueno
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2002-04-23 23:01 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2002-04-23 23:01 allout.el bugs Daiki Ueno
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).