Re: ExecuteMetaData with [ ] instead of { }

[Arash Esbati]

Uwe Brauer <oub@mat.ucm.es> writes:

> Well
>
> (defun my-catch-counter-inc ()
>   "Increment `my-catch-counter' and return the new value."
>   (when (= my-catch-counter 0)
>     (save-excursion
>       (goto-char (point-min))
>       (while (re-search-forward (concat "^\\%<\\*\\(" my-catch-chars 
> "*?\\)>$")

Wouldn't it be easier to write the regexp above like this:

    "%<\\*\\([^>]+\\)>$"

>                                 (point-max) t)
>         (let ((fn (string-to-number (match-string 1))))
>           (when (> fn my-catch-counter)
>             (setq my-catch-counter fn))))))
>   (setq my-catch-counter (1+my-catch-counter)))
                              ^

Does this version throws an error?  There is a space missing after `1+':

,----[ C-h f 1+ RET ]
| 1+ is a built-in function in ‘C source code’.
| 
| (1+ NUMBER)
| 
| Return NUMBER plus one.  NUMBER may be a number or a marker.
| Markers are converted to integers.
| 
|   Other relevant functions are documented in the number group.
|   Probably introduced at or before Emacs version 1.12.
|   This function does not change global state, including the match
|     data.
|   This function has a ‘byte-compile’ property ‘byte-compile-one-arg’.
|     See the manual for details.
| 
`----

This works:

(let ((my-catch-counter 0))
  (setq my-catch-counter (1+ my-catch-counter))
  my-catch-counter)

Best, Arash