mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/progmodes/sh-script.el (sh-mark-line, sh-learn-buffer-indent):

Browse source 
Occur buffers are read-only.  http://bugs.debian.org/720775
This commit is contained in:
Glenn Morris 2013-10-13 16:21:56 -07:00
parent 9148ee920e
commit a5d38e349a
2 changed files with 29 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2013-10-13 Glenn Morris <rgm@gnu.org>
* progmodes/sh-script.el (sh-mark-line, sh-learn-buffer-indent):
Occur buffers are read-only. http://bugs.debian.org/720775
* emacs-lisp/authors.el (authors-fixed-entries):
Comment out old alpha stuff.

55
lisp/progmodes/sh-script.el
View file

@ -3438,26 +3438,23 @@ so that `occur-next' and `occur-prev' will work."
)
(goto-char (point-max))
(setq start (point))
(insert line)
(if occur-point
(setq occur-point (point)))
(insert message)
(if point
(add-text-properties
start (point)
'(mouse-face highlight
help-echo "mouse-2: go to the line where I learned this")))
(insert "\n")
(if point
(progn
(put-text-property start (point) 'occur-target m1)
(if occur-point
(put-text-property start occur-point
'occur-match t))
))
)))
(let ((inhibit-read-only t))
(insert line)
(if occur-point
(setq occur-point (point)))
(insert message)
(if point
(add-text-properties
start (point)
'(mouse-face highlight
help-echo "mouse-2: go to the line where I learned this")))
(insert "\n")
(when point
(put-text-property start (point) 'occur-target m1)
(if occur-point
(put-text-property start occur-point
'occur-match t))
)))))
;; Is this really worth having?
(defvar sh-learned-buffer-hook nil
@ -3689,15 +3686,15 @@ This command can often take a long time to run."
(nth 2 learned-var) out-buffer)))
(with-current-buffer out-buffer
(goto-char (point-min))
(insert
(format "Indentation values for buffer %s.\n" name)
(format "%d indentation variable%s different values%s\n\n"
num-diffs
(if (= num-diffs 1)
" has" "s have")
(if (zerop num-diffs)
"." ":"))
)))
(let ((inhibit-read-only t))
(insert
(format "Indentation values for buffer %s.\n" name)
(format "%d indentation variable%s different values%s\n\n"
num-diffs
(if (= num-diffs 1)
" has" "s have")
(if (zerop num-diffs)
"." ":"))))))
;; Are abnormal hooks considered bad form?
(run-hook-with-args 'sh-learned-buffer-hook learned-var-list)
(and (called-interactively-p 'any)